while (my $line = <IN>) {
   chomp $line;
   next unless $line;
   # do stuff with each line here
}