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
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