$=-=(1<<6)-4;while(<DATA>){@.=split/#/;for(@.){
$;[$=].=$_;$=++;}}for(@;){print chr hex;}__DATA__
4a#75#73#74#20#41#6e#6f#74#68#65#72
20#50#65#72#6c#20#48#61#63#6b#65#72