my $suchstring = qr/(<[^>]*?STRING[^>]*?>)(\\d{10,15})<\/[^>]*?STRING[^>]*?>/im;
while ($array->[1] =~ /$suchstring/g ) {