Help for this page
if ($fields[6] ~~ qw("KOTB" "KBBA" "KBBC" "KBBM" "KBBT")){ ... }
if ($fields[6] =~ m/\A"(?:KOTB|KBB[ACMT])"\z/){ .... }