while (<DATA>) {
  chomp;
  my @cells = split(' ', $_);
  for (@cells) { s/^"(.*)"$/$1/ }
  ...
}