@name_breakdown=split(/ /,$new_gecos);
if ($name_breakdown[1] eq "de" || $name_breakdown[1] eq "von" || $name_breakdown[1] eq "van" or $name_brea
kdown[1] eq "der" || $name_breakdown[1] eq "la" || $name_breakdown[1] eq "del" || $name_breakdown[1] eq
"el" || $name_breakdown[1|2] eq "le") {
 if ($name_breakdown[2] && $name_breakdown[3]) {
     $name_breakdown[1] = join(' ', $name_breakdown[1], $name_breakdown[2], $name_breakdown[3]);
     @END = splice(@name_breakdown, -2);
 }
 else {
     $name_breakdown[1] = join(' ', $name_breakdown[1], $name_breakdown[2]);
     pop @name_breakdown;
 }
}