use warnings;
use strict;

my @ips = qw/192.168.2.1 ..../;

@ips = map { quotemeta } @ips;
 
my $regex = join('|', @ips);
my $re = qr[$regex];

while (<>) {
    print if /$re/;
}