Help for this page

Select Code to Download


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

22:35 >
  3. or download this
    22:25 >perl -wE "my $var = 'xredy'; my ($var2) = $var =~ /(red|green|b
+lue)/; say qq[|$var2|];"
|red|

22:30 >
  4. or download this
    22:38 >perl -wE "my $var = 'xredy'; $var =~ /(red|green|blue)/; my $va
+r2 = $1; say qq[|$var2|];"
|red|

22:38 >