my $string = "BULLOCK MICHAEL A"; $string = ($string =~ m/^[A-Z, ]+([A-Z]{3,}).*?$/) ? $1 : ''; print AEL;