#!/sw/bin/perl -w
# By Ventz Petkov
# Grab only the 10.0.0.X ip's
use strict;
my ($line);

open(FP, "ips.txt"); open(RESULT, ">result.txt");
while ($line = <FP>) { 
    if ($line =~ /10.0.0.(\S+)/) { 
        print RESULT $line;
    }
}
close(FP); close(RESULT);
