sub eily{
    my $str = shift;
    my @b = map[ ( 1e99, 0 ) x 2 ], 1 .. 256;

    for my $y ( 0 .. $HEIGHT-1 ) {
        my $s = \substr( $$str, $y * $WIDTH, $WIDTH );
        my $t = ' ' . $$s ^ $$s;
        chop $t;
        while( $t  =~ m[[^\0]\0*]g ) {
            my $c = ord substr $$s, $-[0], 1; #, $-[0], $+[0];
            $b[ $c ][ LEFT   ] = $-[0]   if  $-[0]    < $b[ $c ][ LEFT   ];
            $b[ $c ][ RIGHT  ] = $+[0]-1 if  $+[0]-1  > $b[ $c ][ RIGHT  ];
            $b[ $c ][ TOP    ] = $y      if        $y < $b[ $c ][ TOP    ];
            $b[ $c ][ BOTTOM ] = $y      if        $y > $b[ $c ][ BOTTOM ];
        }
    }
    return \@b;
}