#!/usr/bin/perl

open (FILE, "access_log");
@log = <FILE>;
close(FILE);

open (FILE2, "separate_ips");
@ips = <FILE2>;
close (FILE2);

foreach $lawg (@log) {
    chomp($lawg);
    $lawg =~ /(\d+\.\d+\.\d+\.\d+)/;
    $ahem = $1;
    $found = 0;
    foreach $ip (@ips) {
        chomp($ip);
	if ($ip eq $ahem) {
	    ++$found;
	}	
    }



    if ($found < 1) {
	    open (FYLE, ">>separate_ips");
	    print FYLE "$ahem\n";
	    close(FYLE);
	    push (@ips, $ahem);
	}
}