use strict;
use warnings;

my $text = "Hello world how are you doing?";
my @stopwords = ("hello","how");
my $regex = join('\b|\b', @stopwords);
$text =~ s/$regex/*BAD*/igs;
print $text;