use Net::Subnet;

if (@ARGV){
		while (<>) {
		my @ips = m/(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25
		+[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/g;
		next unless @ips;
		next unless grep { $matcher->($_) } @ips;
		print $fh $_;
		}