use strict;
use warnings;
use Text::Balanced qw (
    extract_delimited
    extract_bracketed
    extract_quotelike
    extract_codeblock
    extract_variable
    extract_tagged
    extract_multiple
    gen_delimited_pat
    gen_extract_tagged
);
my @extracted;
open WE,"D:\\perl\\text.txt"
    or die "Kann Datei nicht oeffnen: $!";
while (<WE>){
    chomp($_);
        @extracted = extract_tagged($_,'"','"',undef,);
        foreach (@extracted){
            print "Ergebnis:\t",$_,"\n";
        }
        undef @extracted;
    }
close WE;