DB<106> $str="two one two"
 
  DB<107> print $str =~ m/($re)/g
twoonetwo
  DB<108> print grep {$str=~/$_/} @patterns
onetwo