Hello Andrew!
>> $_ x=/(.)((??{chr 1+ord$+})){3}/
>
> This seems OK if a word is defined as [a-z] (as in TPR02 and "even").
> However, it fails with unmatched [] on my /usr/dict/words for any
> word containing a Z, presumably because 3 chars following Z in
> ascii table are [ \ ].
>
> Though probably not optimal, this seems to fix the Z problem:
>
> $_ x=/(.)((??{quotemeta chr 1+ord$+})){3}/
in this case combined solution should pass:
-p $_ x=/(.)((??{($+..z,_)[1]})){3}/
---
Mtv Europe
