while ($myString =~ /"(.+?)"/g) {
  print $1, "\n"; 
}