$string =~ /[^\Q$foo\E]/;