... while(my $line = <$fh>){ chomp $line; $content .= $line; }