my $all=qx{/usr/bin/sed -ne 's/^.*<text:text>\(.*\)<\/text:text>.*$/\1/p' $FILE | /usr/bin/sort | /usr/bin/uniq|/usr/bin/wc -l};

qx{/usr/bin/sed -ne 's/^.*<text:text>\\(.*\\)<\\/text:text>.*\$/\\1/p' $FILE | /usr/bin/sort | /usr/bin/uniq|/usr/bin/wc -l});

...
my %textinhalte;
open my $fh, '<', $FILE or die "cannot open $FILE: $!";
while (<$fh>) {
    $textinhalte{$1}++ if m~<text:text>(.*)</text:text>~;
}
close $fh;
print "Anzahl unterschiedlicher Inhalte: ", scalar keys %textinhalte;