sub s2a{my@q;$d=0,map$q[$d++].=$_,/./sg for@_;@q}