while (<$fh>) {
   s/\x0D\x0A\z//;
   ...
}