sub fh_iterator {
    my $fh   = shift;
    my $line = $fh->getline();
    return $line unless $line;

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

    return $line;
}