#!/usr/bin/perl

use strict;
use warnings;

#my $mystring = "SMITH, A DOE";
my $mystring  = "BULLOCK JOE A";

my @array= $mystring =~ m/^[A-Z, ]+([A-Z]{3,}).*?$/;

print"$array[0]\n";