my (@name) = split(/ /, $fullname);
  $last= pop @name;
  if ($last=~/(jr|sr)\.?/i) {
    $last= pop @name . ' ' . $last;
  }