Hello Ton! > Near the end it's going to match anyways, so you can do: > -p @z=a..z;$#z--until/@z[-4..-1]/x;$_ x=@z>3
Nothing to add, nothing to delete in this /@array[slice]/x variant.
And how nice final result is, let me quote it again:
$_ x=/(.)((??{chr 1+ord$+})){3}/
That strong style reminds of
http://www.perlmonks.com/index.pl?node_id=98687
http://www.perlmonks.com/index.pl?node_id=100468
It's amasing that regexes always win.
---
Mtv Europe
