while defined($line = <>)
	if $line !~ s/\\$/
		print $line
	else
		repeat
			$continuation = <>
			if $continuation !~ s/\\$/
				print "$line$continuation"
				stop
			$line .= $continuation