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).
A foolish day
Just another day
Internet cleaning day
The real first day of Spring
The real first day of Autumn
Wait a second, ... is this poll a joke?
Results (556 votes),