my (@ips, @urls);
while (<>){ 
    last if !/\S/;
    s/\s+.*//;
    s/\[\.\]/./g;
    if (/[^\d\.]) {
          push @urls, $_;
    } else {
          push @ips, $_;
    }
}