while (defined($line = <>)) {
	if ($line !~ s/\\$/) {
		print $line;
	} else {
		while(1) {
			$continuation = <>;
			if ($continuation !~ s/\\$/) {
				print "$line$continuation";
				last;
			}
			$line .= $continuation;
		}
	}
}