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

22:35 >