while(defined($line = <IN>)) { if($line =~ /(^\s*)(\"[^*]*?\")$/g) {next;}; #Blow off blank lines chomp($line); } [download]
In reply to Blow off blank line and lines with messages by Anonymous Monk