perldoc perlfaq1 | perl -ne '/((?<=")(.+hack...(?:OR)?))/&&die$2.$/' -
See also One-liner japh, Just Another JAPH, Opere Citato Japh, and JAPF for the same idea (some of these only work with older versions of perl though).
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (442 votes). Check out past polls.