use strict;
use warnings;
use autodie;

my @ipaddress;
my $filename = "router.log";
my $myip     = "10.0.0.";
my $count    = 0;

open my $f, "<", $filename;
while(<$f>){
  $count++;
  while (/$myip/g){
    if (m/(\d+\.\d+\.\d+\.\d+\:\d+)/){
	  push @ipaddress,$1;
	}
  }
}
close $f;