Help for this page
print for map{ s/\D\K0+//; $_ ... St St1 St9
my @g = qw[ St1x7 St1x23 St10x355 Stb10x100 Sta2x9 St2x1 Stbbb12x5 Staaa12x4 S +t6x33333 ... Stb10x100 Stbbb12x5 ZZZZZZZZZZZ