#! /usr/bin/perl -w
use strict;
print "\n";
while ()
{
#remove leading and trailing whitespace
s/^\s+//;
s/\s+$//;
#split into an array
my ($dummy, $url) = split /\t/, $_;
#do something with the url
print "$url
\n" if $url;
}
print "\n";
__DATA__
###################################################################
# #
# Created by Alan Bradley on 1-03-04 #
# #
# this list currently has 61882 different blocked servers #
# #
# #
# #
###################################################################
0.0.0.0 00.goodoo.ru
0.0.0.0 00.smi.ru
0.0.0.0 000.2.links4trade.com
0.0.0.0 0000hits.net
etc.