while (<$fh>){
  next unless /\S/; # skip blank lines
  s/"//g; # remove all "