@g=split/z/,ExzAPzDazDgzDizFVzFszaBzluzXhzAlzTBz;for(;$q<6;$
q++){$_.=substr(crypt($g[$q],$g[$q+6]),2,3)}$_=~tr/./ /;eval