if($line =~ m/ on $ipaddress/)
    {
        if (scalar(@matches) <= 2){
            push(@matches, $line);
        }        
        else {
            foreach $line (@matches){
                  print "$line\n";
            }
            exit(0);
        }
        
    }