#!perl -p
eval'y/_aA-z/_zZA-y/;'x($$%3*6+6)