#!/usr/bin/perl -s
#
# URL List Expander
#

require "flush.pl";

open(urllist,"urls.txt");

while (<urllist>) {
	s/\r//g;
	s/\n//g;
	s|:80/|/|;
	s|:80$|/|;
	s|([^/])/([^./]+)$|$1/$2/|;
	s|//([^/]+)$|//$1/|;
	$url = $_;
	$url =~ m|^(.*)://(.*)$| ;
	$protocol = $1;
	$url = $2;
	while($url) {
		print "$protocol://$url\n";
		$url = substr($url,0, rindex($url,"/",length($url)-2)+1);
	}
}

close(urllist);