/^[^, ]+(?:,\s+\w+|)\s+(\w+)/

##</code><code>##

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