Вывод содержимого в кавычках

 open (MYRES, "<filename");
   my @lines = <MYRES>;
   my $item;
   foreach $item(@lines)
   {
      $_ = $item;
if (/\"(.+)\"/)
{
  print $1."\n";
}

   }
   close MYRES;