It's a matter of operator precedence¹:

$ perl -e 'm/foo/i && print while <>'
i was foo
i was foo
i was fee
i was foolish
i was foolish
^D
$
[download]

[1] Update: And, as MeowChow says, a single modifier.

After Compline,
Zaxo