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