Re^2: how to split string(many words in one line) in a word?

[LanceDeeply]

tmtowtdhw :)

my $string = "The quick brown (it's a slightly reddish brown) fox jump
+s over the lazy dog";
my $words = join '', map { ( / / ) ? "\n" : $_ ; } split '', $string ;
print "$words" ;