$_=q[
s;.*;94eae6e840c2dcdee8d0cae440a0cae4d840d0c2c6d6cae414;s;
@_=/../g;
for(@_){
    $_=chr((hex)>>1);
}
$_=join'',@_;
print
];
s; |\n;;g;
eval;