Hi,
I think the following code would be better one.
while ($url = <DATA>) {
chomp($url);
$url =~ /^(?:http:\/\/)?([^\/]+)/;
print $1."\n";
}
__END__
http://www.wilbert.net
www.worful.com/after-text.htm
http://www.winston.com/argle.htm
www.windoze.net
Thanks and Regards,
Indra
---------------------------------
Chat on a cool, new interface. No download required. Click here._______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
