DB<131> use constant REGEX=>qr/[^ABCD]/

  DB<132> 'C' =~ REGEX

  DB<133> 'Z' =~ REGEX
 => 1