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