my $s = 'A3xyz45M98AB7Z9'; my $i = 0; %_ = map { (++$i, $_) } split /(?<=\d)(?=\D)/, $s; local $; = ":"; $_{ (), map { delete $_{$_} } 1..$i }=0; print keys %_;
Couldn't help myself O:-) Sorry :-)
In reply to Re^2: Best way to put : between fields in a string
by cog
in thread Best way to put : between fields in a string
by eyepopslikeamosquito
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |