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

22:30 >