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

##</code><code>##

22:35 >perl -wE "my $var = 'xredy'; my $var2 = $var =~ /red|green|blue/; say qq[|$var2|];"
|1|

22:35 >

##</code><code>##

22:25 >perl -wE "my $var = 'xredy'; my ($var2) = $var =~ /(red|green|blue)/; say qq[|$var2|];"
|red|

22:30 >

##</code><code>##

22:38 >perl -wE "my $var = 'xredy'; $var =~ /(red|green|blue)/; my $var2 = $1; say qq[|$var2|];"
|red|

22:38 >