$hell = sub { $o=""; foreach(@{$_[0]}) { $o .= chr($_); } return $o; };
$z = 0b100;
$x = [0123];
$x->[1] = 0x6d;
$x->[2] = $$x[1] & ~$z;
push @$x, @$x[1,2];
$y = \$$x[$z];
$x->[0b11]--;
$$y -= $z;
$x->[05] = (666>>$z)-($z<<1);
while(--$z) { for(1..$z) { print $hell->($x); } print $/; }