Select Code to Download

  DB<100> @patterns=qw#one two three#
 
...
 
  DB<103> print $str =~ m/($re)/g
onetwo

  DB<106> $str="two one two"
 
...
twoonetwo
  DB<108> print grep {$str=~/$_/} @patterns
onetwo