$_='-K0145-u-!044847a9-i3105-!30610533-!-i04a0-l3141';my@a=
split/\s+/,`perl -V`;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;}