Help for this page

Select Code to Download

Select or download this
```
/^[^, ]+(?:,\s+\w+|)\s+(\w+)/
```

Select or download this

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