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;

D:\perl\>uebersetzung.pl
Ergebnis:
Ergebnis:       Wõhrend immer mehr "Internet-Nutzer" sich trotz Bedenken von Datensch³tzern
Ergebnis:
Ergebnis:
Ergebnis:       auf kostenlose "Web-Mailer und õhnliches" einlassen, formiert sich in den
Ergebnis:
Ergebnis:
Ergebnis:       USA eine Gegenbewegung. "Eine neue Art von Web-Diensten" propagiert die
Ergebnis:
Ergebnis:
Ergebnis:       Selbstvermarktung "des aufgeklõrten Users", berichtet das Technologiemagazin
Ergebnis:
Ergebnis:
Ergebnis:       Technology "Review" in seiner Mõrz-Ausgabe.
Ergebnis: