Huh, that's interesting. I get the same thing if I use quux as a constant, even though -q isn't a filetest operator. And this contradicts the documentation given by perldoc -f -X:

Note that "-s/a/b/" does not do a negated substitution. Saying "-exp($foo)" still works as expected, however--only single letters following a minus are interpreted as file tests.