$sentence =~ s/\s*\b\Q$word\E\b(?!.*\b\Q$word\E\b)//s;