Twisted & Transformed

[iamcal]

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"@$";