use strict; use warnings; 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); while (){ print if ($_ !~ /$ignore/); } __DATA__ 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 192.168.188.4 192.168.11.142 192.168.140.111 192.168.186.193 192.168.186.167 192.168.139.51 192.168.139.199 192.168.132.102