my $var2 = $var =~ /red|green|blue/;