my ($file) = /\n.*?"(.*?)".*?\n/ or next;