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


in reply to (Golf) Strings-to-Array

Not really golf, just having fun (requires Math::Matrix):
sub s2a {map{join'',@$_}@{+Math::Matrix::transpose[map[split''],@_]}}