my $name_count = scalar split / /, $new_gecos;
my @comps = $new_gecos =~ m{(?:Von|De La|La).*|\w+}g;
push @comps, '' while scalar @comps < $name_count;