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