perl -pi.orig -e "s/(\w+,)\s+\w{1,3}[,.]+\s+(.*)/$1 $2/;" in.file

Thomas, A. Alexandria S. Perl Programmer Las Vegas NV. 
Williams, Jr., Michael A. C Programmer New York N.Y. 
Silver, Susan Java Programmer San Jose CA 
Altips, Alvin C. Tcl Programmer Chicago IL.

#!/usr/bin/perl 
use warnings; 
use strict; 
 
while (<DATA>) { 
    s/ 
        (\w+,)    # one or more word characters follow by a comma, captured into $1 
        \s+       # one ore more white spaces 
        (?:       # non-capturing group 
            \w    # word character 
            \.?   # 0 or 1 period 
        )+        # one or more of the "word character-maybe period" pattern  
        [,.]+     # one or more periods or commas 
        \s+       # one or more white spaces 
        (.*)      # everything else, captured into $2 
     /$1 $2/x;    # matches in first and second capturing group 
    print; 
} 
 
 
__DATA__ 
Thomas, A. Alexandria S. Perl Programmer Las Vegas NV.  
Williams, Jr., Michael A. C Programmer New York N.Y.  
Silver, Susan Java Programmer San Jose CA  
Altips, Alvin C. Tcl Programmer Chicago IL. 
Doe, III., John B. Lisp Programmer San Francisco CA 
Smith, P.J., Jessica Ruby Programmer Las Vegas NV. 
Norris, A.B.C. Chuck Python Programmer Chicago IL.

perl -pi.orig -e "s/(\w+,)\s+(?:\w\.?)+[,.]+\s+(.*)/$1 $2/;" in.file

perl -pi.orig -e "s/(\w+,?)\s+(?:\w\.?)+[,.]+\s+(.*)/$1 $2/;" in.file

perl -ane "for (@F) { print qq($_ ) unless /\./; } print qq(\n);" in.file

perl -ane "for $i (0 .. $#F) { print qq($F[$i] ) unless $i == 1 and /\./; } print qq(\n);" in.file

#!/usr/bin/perl 
use warnings; 
use strict; 
 
while (<>) { 
    my @a = split; 
    for my $i ( 0 .. $#a ) { 
        print "$a[$i] " unless $i == 1 and $a[$i] =~ /\./; 
    } 
    print "\n"; 
}

perl -ane "for $i (0 .. $#F) { print qq($F[$i] ) unless $i == 1 and $F[$i] =~ /\./; } print qq(\n);" in.file