if ($color =~ /^(?:red|blue|green)$/) {

Remember that "red\n" =~ /^red$/ is true. Are you sure you want to use $ there, or did you really mean to use \z?

Juerd
- http://juerd.nl/
- spamcollector_perlmonks@juerd.nl (do not use).