Re: Delete all "records" which contain a regex match

How can you tell which commment is spam and which one isn't? I made up a few filters in the following code.

local $/ = '-----';

while (<DATA>) {
   # Spam if author contains "casino".
   next if /^AUTHOR:.*casino/msi;
   
   # Spam if body contains "poker".
   next if /^(?!AUTHOR|TITLE|COMMENT|DATE|CATEGORY).*poker/msi;

   # Spam if anything contains "viagra".
   next if /viagra/msi;

   print;
}
[download]

__DATA__
AUTHOR: bobMonk
TITLE: Monk Software Chart
STATUS: Publish
CATEGORY: Monks
DATE: 05/21/2006 11:36:16 AM
-----
COMMENT:
AUTHOR: viagra!
EMAIL: bla@mojo.com
Blabla, more spam. blabla
-----
COMMENT:
AUTHOR: Joe Legitimate Man
EMAIL: Joe@legitdomain.com
This is a legitimate comment.
-----
COMMENT:
AUTHOR: more spam poker stuff
EMAIL: marengo@greenfield.com
Blabla, more spam. poker blabla
-----
COMMENT:
AUTHOR: more spam casino stuff
EMAIL: marengo@greenfield.com
Blabla, more spam. blabla
-----
COMMENT:
AUTHOR: Joe Legitimate Man
EMAIL: Joe@legitdomain.com
This is a legitimate comment.
-----
[download]

Comment on Re: Delete all "records" which contain a regex match Select or Download Code