Select Code to Download

#/usr/bin/perl
use strict;
...
while (my $line = $fh_iterator->($fh)) {
    # do stuff to $line
}

    $line .= $fh_iterator->($fh) if $line =~ /\\\n/

sub fh_iterator {
    my $fh = shift;
...
    $line .= fh_iterator($fh) if $line =~ /\\\n/;
    return $line;
}