Hello, Thanks for speaking out! I'm eager to learn and listening! So my thought should be - next if the line is blank! Thanks, I'm working to become a better perl scripter! :)

#next unless $lin !~ /^\s*$/ ; # Gets rid of blank lines
next if $lin =~ /^\s*$/ ;  # Gets rid of blank lines, Thanks JohnGG@pe
+rlmonks
[download]