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