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


in reply to How can I cleanly split a string of text into a two-dimensional array

Well if there is a char that marks the end of a row (new line for example) you could try something like this.
@array = map { [split//] } (split/\n/,$string);