#next unless $lin !~ /^\s*$/ ; # Gets rid of blank lines
next if $lin =~ /^\s*$/ ;  # Gets rid of blank lines, Thanks JohnGG@perlmonks