Help for this page

Select Code to Download


  1. or download this
    for my $phrase (@phrases) {
   for my $filter (@filters) {
...
      }
   }
}
  2. or download this
    my ($filter_re) = map qr/$_/,
                  join '|',
...
for my $phrase (@phrases) {
   $phrase =~ s/$filter_re//ig;
}
  3. or download this
    use Regexp::List qw( );

...
for my $phrase (@phrases) {
   $phrase =~ s/$filter_re//g;
}