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