$evil=                           ## list of re phrases t
'barely legal
Unsensored pics
rated adult site
(find out|learn|discover) ANYTHING about anyone
(remove.*\@dcemail\.com)
bagboy\@burmeses\.net
\(a\)\s*\(2\)\s*\(C\).*1618
this limited time free offer
thousands of extra dollars
earn a great monthly income
\bfat absorber\b
chain letter.*pyramid scheme
pyramid scheme.*chain letter
e-mail\w* work\w*\!
Earn BIG \$\$\$
block this remove account
quit watching others get rich
bulk email works!
firmer erections
vaginal lubrication
s e x drive
Enhances Orgasms
eraseus@yahoo.com
over \d+ million fresh email
content-\w+: .* .*name\s*=\s*".*\.(exe|scr|pif|vbs)"
And it\'s 100% LEGAL!
No Hidden Fees'; ## actually is 3 x this long

$evil=~s/\n/\|/g; $evil=~s/ +/ /g;

# ... skipping ahead ...
while($l=&getnextline) {
 $_="$l$lastline";   ## combine this line and the last
 s/\s+/ /g;          ## simplify white space matching
 $isSpam = $isSpam || /$evil/io;
 # ... etc ...
}