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;
}