while (<$fh>) {
   s/\s+$//;
   ...
}