http://www.perlmonks.org?node_id=68003


in reply to (Golf) Strings-to-Array

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