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%101o114n32%80d101%114 108J32%104A97%99P107H44%34
print"\n$/";