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