#!/usr/bin/perl

while(<STDIN>){
	($dummy, $url) = split( /http:\/\//, $_ );
	if( $url ){
		($domain, $dummy) = split( / /, $url );
		($domain, $dummy) = split( /</, $domain );
		($domain, $dummy) = split( />/, $domain );
		($domain, $dummy) = split( /\"/, $domain );
		($domain, $dummy) = split( /\//, $domain );
		$domain =~ s/\r//g;
		$domain =~ s/\n//g;
		print "$domain\n";
	}
}