Select Code to Download

use Regexp::Assemble;
my $r = Regexp::Assemble->new->track(1)->add(qw(foo? bar{2} [Rr]at));
...
      print "$w no match\n";
    }
  }

this no match
food matched by foo?
is no match
rather matched by [Rr]at
barren matched by bar{2}