http://www.perlmonks.org?node_id=450252


in reply to The most Perlish Beatle was...

At first I was also disappointed that I couldn't vote for paco.

So playing with the offered choices Yoko is the obvious choice:

$beatles = "PaulJohnGeorgeJohnRingo"; @yoko = split(/John/, $beatles);
markmoon
--
@a = ("a".."z"," ","-","\n");foreach $b ( 12,0,17,10,24,12,14,14,13,26,8,18,26,0,26, 22,0,13,13,0,27,1,4,26,15,4,17,11,26,7,0, 2,10,4,17) {print $a[$b]};print $a[28];