perl -pia -e"splice @F, 1, 1 if  $F[1] =~ /[A-Z]\./i or $F[1] eq 'jr.' "