Help for this page

Select Code to Download


  1. or download this
    $beatles = "PaulJohnGeorgeJohnRingo";
@yoko = split(/John/, $beatles);
  2. or download this
    @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];