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