my %ips;

for (<LOG>) {
        $_ =~ /(.*)\s-\s-\s(\[.*?\])\s\"(.*?)\"\s(\S+)\s(\S+)\s\"(.*?)\"\s\"(.*)\"/o;
        if (! $ips{$1}) {
                $ips{$1} = 1;
                if ($6 !~ /-/) {
                        print "$2 $1 $6\n";
                }
        }
}