$a=q%ptsneehe^ $a=~s#\S#push@b,$&#eg;for$a(0..7){for(0..3){$z.=$b[$a];
     r"torrar^ $a+=8}};$|=1;$z=~s#_# #g;$z=~s#"(.*)"#'$_)/10for("'.join
     iJ_t_lc,^ ('","',split//,$1).'",$/)'#e;eval'select$q,$q,$q,('.$z;
     nuahP_k"^ %;$a=~s#\^(.*?)\n#$b.=$1;""#eg;eval$b;