while ( my $line = <$fh> ){
    chomp $line;
    print "$line\n";
}