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

s/ $whitespace? \b $badwords \b $whitespace? / /xg;