Help for this page

Select Code to Download


  1. or download this
    my $whitespace = qr/[\s()]+/;
my $badwords   = qr/.../i;
my $wordchar   = qr/[a-zA-Z]/;

s/ $whitespace? \b $badwords \b $whitespace? / /xg;
  2. or download this
    my $whitespace = qr/[\s()]+/;
my $badwords   = qr/.../i;
...
   (?! $wordchar )   # At end of word.
   $whitespace?
/ /xg;           # Avoid joining two numbers.
  3. or download this
    use Regexp::List qw( );
my @badwords = qw( r rd red );
my $badwords = Regexp::List->new(modifiers=>'i')->list2re(@badwords);
# qr/r(?:e?d)?/i