You could look in the Perl source code. Testing whether a bareword is not a warning/error is probably not in the grammar, though, but in logic applied later.