Mtv Europe was too hasty: > -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
Mtv Europe was too hasty: > -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