use Net::CIDR::Lite;

my $range = Net::CIDR::Lite->new("192.168.1.0-192.168.99.255");

while (<DATA>) {
  chomp;
  print "$_\n" if $range->find($_);
}