my $continuation = 0;
-while (my $line = <>) {
+while (<>) {
# Remove leading whitespace if the last line was a line continuation.
if ($continuation) {
- $line =~ s/^\s+//;
+ s/^\s+//;
}
- if ($line =~ /^(.+?)\\$/) {
+ if (/^(.+?)\\$/) {
print $1;
$continuation = 1;
} else {
- print $line;
+ print $_;
$continuation = 0;
}
}