Select Code to Download

    [ "abxcd zwe rrv",           "0",         0 ],

        1+index $s, $c or return 0 while length($c = chop $w);