if ($string =~ /^KG\d{3}[JMA]$/) {
#...
}