my $RegEx = qw/123.145.[146-149].2/;
print "$IP\n" if ($IP =~ /$RegEx/);