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

Many steps to this one. Deconstruct at your peril ;o)
$_='0001000000323040404302911262054692508676930855672883742872293 680214127';s@\s@@g;@_=m;.{10};g;@_=map{$$=$_;join'',map{substr($_ ,$$-1,1)}@_}(1..length($_[0]));$_=join'',map{sprintf'%.5x',$_}@_; @_=(m,..,g);@$=reverse qw(@_ chr hex map '' join print);$$[2].=q= ,=;($$[4],$$[5])=(qq;{$$[5];,qq[$$[4]}]);eval"@$";