12345 |
- for(chr 97..chr 117){$_[@_]=$_}for$1(split/\D/,<DATA>){$_.=$_
- [$1]if$_[$1]}s/([^Ja]+)([^p]+)([^h]+)(.+)/\u$1 $2 \u$3 $4,\n/
- ;@_=split//;for(@_){print;print"\0"x6**$]if$^O=~/^l/}__DATA__
- 9+20+18+19+23*0*13+14+19+7+4+17*15*4+17*11+7+0*2*10-4+17=1337
|