Help for this page

Select Code to Download


  1. or download this
    "Spam!!!\n" if 
   $text =~ /^(?:From|To):\s*"(?!.+Furry Marmot)[^"]*" <marmot\@furryt
+orium\.com>/m;
  2. or download this
    print "Spam!!!\n" if 
    $text =~ /(?=^From:[^\n]+marmot\@furrytorium\.com).+^To:[^\n]marmo
+t\@furrytorium\.com/ms;