while(defined($line = <IN>))
{
if($line =~ /(^\s*)(\"[^*]*?\")$/g) {next;}; #Blow off blank lines
      chomp($line);
}