sub fh_iterator {
    my $fh = shift;

    my $line = $fh->getline;
    $line .= fh_iterator($fh) if $line =~ /\\\n/;
    return $line;
}