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