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};