$net="192.168.4.";
$counter=10;
...
$ip=$net.$counter;
...
while ( $counter <= 14 ) {
        ...
        open(LOGF,">>",$logpath . $ip);
        ...
                while ( <INFILE> ) {
                        ...
                        $ip=$net.$counter;
                        ...
                        }
                }
        $counter++;
        }

##</code><code>##

my $net = "192.168.4.";
...
for my $counter ( 10 .. 14 ) {
        my $ip = $net . $counter;
        ...
        open(LOGF,">>",$logpath . $ip);
        ...
                while ( <INFILE> ) {
                        ...
                        }
                }
        }

##</code><code>##

                $|++;

##</code><code>##

                        @array = split(" ",);

##</code><code>##

                        @array = split;

##</code><code>##

#Only grab things associated with the current searched for ip and ends with .com .net and so on

                        if (($array[7] =~ /[com|org|net|gov|cc|mil]\/$/)&&($array[3] eq $ip)) {