use warnings;

my $file = 'd:\temp\tcp.txt';
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);

open (FILE, $file) or die "Can not open $file: $!\n";
while (<FILE>){
   ($src) = (split /;/)[10];
    print if ($src !~ /$ignore/);
}

close FILE