my $customstorycode=kommt_von_irgendwo();

if($customstorycode=~/^KG \d{3} [JMA]$/)
{
  verabeite_weiter($customstorycode);
}
else
{
  verabeite_weiter('StoryCodeUmfangError');
}