Implementing quick excludes in Perl

#! /usr/local/bin/perl -w
# Routine to ignore "normal" log entries - after Marcus Ranum's
# "artificial ignorance"
#
while (<>)
{
if (/.*popper\[.*: connect from /} { next }
elsif (/.*sshd\[.*log:.*accepted/} { next }
elsif (/.*telnetd\)[*.: connect from /} { next }
elsif (/.*sshd\[.* log: RSA key.*complete/) { next }
elsif (/.*sshd\[.* log: Generating.*key/) { next }
elsif (/.*sshd\[.* log: Closing connection/) { next }
elsif (/.*ftpd\[.*: connect from/) { next }
else
{print}
}

NEW!
We support the SANS Log Management Summit 2006 (Click Here for more information)

(Bonus: Now You can download Tbird's SANS Webcast Slides)

]
[Optional]
[Optional]