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