$=-=(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
In reply to A First - Please Comment by r.joseph
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |