I'm sorry for flooding.

>> -p @$=a..z;pop@$ while@$>3&&!/@$[-4..-1]/x;$_ x=@$>3
> that's better -
> -p @$=a..z;pop@$ until@$<4||/@$[-4..-1]/x;$_ x=@$>3

-p @$=a..z;1until/@$[-4..-1]/x|!--$#$;$_ x=@$>3

Reply via email to