Revised version to work on Activeperl and normal perl:

($_)=(`perl -V`=~m((.*)));s+\(.*\)++;my@a=split/\s+/;$_='-K0
1-t-u-!044c4149-i3105-!30310533-!-i0440-l3147';s(\s)[]g;for(
(m((..))g)){my@c=split//;if($c[0]eq'-'){$_=ord$c[1];$_=chr$_
-1;}else{split//,$a[hex$c[0]];$_=$_[hex$c[1]];}print;}
[download]