open(DAT,"datei.txt");
my @read = <DAT>;
close(DAT);

for(@read) {
    if ($_ =~ /"(.*?)"/s) {
    print $1;
    }
}