#!/usr/athena/bin/perl

while(<>){
	while(/http:\/\/([^>" \n\/]+)/g){
	$site = $1;
	$h = ""; $p = 0;
	($h, $p) = split(":", $site);
	$p = 80 unless $p;
	print "$h:$p\n";

}
}