Justa thought but maybe you should increment and decrement chars in the slice moved by direction, every time they move. That way when you rotate segment BAEKUWTN four times in one direction it would be the same as +4ing them but every turn would obscure the bast data up or down.

What a goofy crypt.

--
$you = new YOU;
honk() if $you->love(perl)