$badword = "badword";

##</code><code>##

$str =~ /(\bb\W*a\W*d\W*w\W*o\W*r\W*d\b)|badword/;