$a=sub{$_=shift;s/(\d)(\d)/$2$1/;return ++$|.$_;};
$b=sub{$/=shift;substr($/,shift,1,'1');$/;};
$c=sub{unpack("N",pack("B32",substr("$["x 32 . shift,-32)))};
undef $d;
print pack("a1b8c1i1",
chr(&{$a}(&{$c}($[.&{$a}($[.'1')).$[)),
substr(&{$a}($[.$[).join('',reverse(split('',&{$a}($[.$[)))).&{$a}($[.$[),$[,&{$c}(&{$a}($[.$[).$[)),
&{$b}(&{$b}(&{$b}(&{$a}($[.$[).$[x5,++$d),++$d),++$d),
&{$a}(&{$c}($[.&{$a}($[.$[)).$[)
);