#!/usr/bin/perl

# get a line, combining continuation lines
#  that start with whitespace
sub get_line {
	$thisline = defined($lookahead) ? $lookahead : <STDIN>;
	line: while ($lookahead = <STDIN>) {
		if ($lookahead =~ /^[ \t]/) {
			$thisline .= $lookahead;
		}
		else {
			last line;
		}
	}
	$thisline;
}

while ($_ = &get_line()) {
	# Your code here.
}
