#!/usr/bin/perl

use strict;
use warnings;
use Net::Subnet;

my $filename = 'mylogFile.log';
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";
my @cidr_list = <$fh>;

my $matcher = subnet_matcher qw(192.168.1.0/22);

my @grepIPs = grep(/\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\./,@cidr_list);

for (my $i=0; $i < scalar @grepIPs; $i++){	

	my $boolean = $matcher->($grepIPs[$i]);
	if ($boolean == 1){
		print $grepIPs[$i];
	}
	else{
		print "Nothing\n";
	}
}