JAPH2

#!/usr/bin/perl

use warnings;
use strict;

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