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).
www.com | www.net | www.org
Never Hardly ever Occasionally Fairly regularly Frequently
Results (29 votes). Check out past polls.
