while (<$fh>) {
    chomp;
    next if !length;
    ...
}