$string =~ s/\bHELL\b/BAD/g;
$string =~ s/(?<\W)\s|\s(?=\W)//g;