$ perl -wnE '/^[^, ]+(?:,\s+\w+|)\s+(\w+)/; say $1;'
SMITH, A DOE
DOE
BULLOCK JOE A
JOE