perldoc perlfaq1 | perl -ne '/((?<=")(.+hack...(?:OR)?))/&&die$2.$/' - [download]
In reply to Perl FAQ by setebos