while ( $file =~ /((?<!\\)\".*?(?<!\\)\")/sg) {
   print $1;
}