Select Code to Download

#!/usr/bin/perl -w
use strict;
my @avoid= map qr/\Q$_\E/i, qw(leroy brown);
...
while( $line= <IN> ) {
    print $line   unless  grep $line =~ $_, @avoid;
}

while( $line= <IN> ) {
    for(  @avoid  ) {
        if(  $line =~ $_  ) {
...
        }
    }
}

while( $line= <IN> ) {
    for(  @avoid  ) {
        if(  $line =~ $_  ) {
...
    }
    print $line;
}