http://www.perlmonks.org?node_id=82609

#!/usr/bin/perl -w use strict; $_="011291020310415102805081036150812103801030115081"; s/(..)/\\x$1/g;eval"\$_=\"$_\";";print,if($_=join'',map{ chr((vec($_,$?,2*$^F).vec($_,$|+1,4))+96)}split//)=~s;~; ;g;
dis-assemble at your leisure...