Please see S_intuit_more() in toke.c in the perl source, and remember this is the *lexer* doing this weird "weighing of evidence".