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