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