$z=~s#"(.*)"#'$_)/10for("'.join
 ('","',split//,$1).'",$/)'#e;
#eval'select$q,$q,$q,('.$z;