my $fh_iterator = sub
{
    my $fh    = shift;
    my $line  = $fh->getline();
       $line .= $fh->getline() while $line =~ m{\\$};

    return $line;
}