perl -pibak -e 's/^\s.*//; s/\[\.\]/./g;' filename

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

my @ips;
while (my $line = <STDIN>){ 
	last if $line =~ !/\S/;
	$line =~ s/^\s.*//;
	$line =~ s/\[\.\]/./g;
	push @ips, $line;
}

my @urls;
while (my $line = <STDIN>){ 
	last if $line =~ !/\S/;
	$line =~ s/^\s.*//;
	$line =~ s/\[\.\]/./g;
	push @urls, $line;
}

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

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

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