my $ignore =
    qr( 192\.168\.188\.3 |
        192\.168\.11\.141 |
        192\.168\.140\.110 |
        192\.168\.186\.192 |
        192\.168\.186\.166 |
        192\.168\.139\.50 |
        192\.168\.139\.198 |
        192\.168\.132\.101 )x ;

##</code><code>##

use Regex::PreSuf;
my @ignore =
    qw( 192.168.188.3
        192.168.11.141
        192.168.140.110
        192.168.186.192
        192.168.186.166
        192.168.139.50
        192.168.139.198
        192.168.132.101 );
my $ignorex = presuf( map { s|\.|\\.|g } @ignore );