$_ = "My First JAPH"; print ( (split(/\s/, $_), Multi)[0,3,2]) if ( $,=" " )

I don't understood JAPH at now...

It's a good play :)

map { $,=~s/\D?$_/chr($_)/e;$/=~s/\d+//; }split(/\D+/,$,) 
 if ( $/=$,=<DATA>); $/=~s/%//g; eval($,); # manual eval(<DATA>);
__DATA__
112M114y105 110F116i32r34%74%117s115t116|32s97%110e111%116c104%101o114
+n32%80d101%114 108J32%104A97%99P107H44%34
print"\n$/";
[download]

--
Marco Antonio
Rio-PM

Comment on $_ = "My First JAPH"; print ( (split(/\s/, $_), Multi)[0,3,2]) if ( $,=" " ) Download Code