It also allows "ReD\n", "grEEn\n", and "BLUE\n". Maybe you wanted /\A(?i:red|blue|green)\z/ instead?

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.