##########################################
# Precise-Input-Check (PIC) / Story-Code #
##########################################

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

FirstCheckOK: