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