$name =~ s/(.*?\s.*?\s.*?\s.*?)\s/$1\n/;

##</code><code>##

$name =~ s/(.*?\s+.*?\s+.*?\s+.*?)\s+/$1\n/;

##</code><code>##

$name =~ s/((?:.*?\s+){3}.*?)\s/$1\n/;

##</code><code>##

$name =~ s/((?:\S+\s+){3}\S+)/$1\n/;