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(@{$@});'