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

##</code><code>##

local $/ = "\x0D\x0A";
while (<$fh>) {
   chomp;
   ...
}

##</code><code>##

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