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