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

22:38 >