in reply to (Golf) Strings-to-Array
sub s2a{my@q;$d=0,map$q[$d++].=$_,/./sg for@_;@q} [download]
# 41 chars sub s2a {my@q;map{my$d;map$q[$d++].=$_,/./sg}@_;@q} [download]