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