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