if ($color =~ /\A(?:red|blue|green)\z/) {
 # do something here
}