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

##</code><code>##

open(my $fh, '<:crlf', $qfn)
   or die("Can't open \"$qfn\": $!\n");

while (<$fh>) {
   chomp;
   ...
}