sub ausgabe {
        my ($arrayRef)=@_;
        my $suchstring = "/(<[^>]*?STRING[^>]*?>)(\\d{10,15})<\/[^>]*?STRING[^>]*?>/igm";
        print "-- $suchstring --\n";
        foreach my $array ( @{$arrayRef} ) {
                my @result=();
                while ($array->[1] =~ $suchstring) {
                        push @result, $1. " --> " .$2. "\t";
                }
                printf "%-90s :  %-s\n", $array->[0], join(" ",@result);
        }
}