Ooh, very nice. But it clobbers a global $d. Here's my remedy:

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

It uses map() in void context, but who cares?

japhy -- Perl and Regex Hacker