perl -e '$@=[[0,0112,0,0],[0,0101,0,0],[0,0120,0,0],[0,0110,0,0]];$[=256/8-0x1D;print(chr(@{$_}[+($[+1-1+1)]))for(@{$@});'
perlmonks.org content © perlmonks.org and Anonymous Monk, puudeli
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03