http://www.perlmonks.org?node_id=993427


in reply to Re^2: grep flip flop (range operator)
in thread grep flip flop (range operator)

Whole list is printed, as after spotting 'Q' flip-flop goes to 'false' state and back to condition $. == 0 which is all the time true, so it sets flip-flop again to true.