perldoc perlfaq1 | perl -ne '/((?<=")(.+hack...(?:OR)?))/&&die$2.$/' - [download]
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).
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (404 votes), past polls
