$line =~ s/\n//g; next if !$line; #### next unless $line =~ /\S/;