#! /bin/perl

while (<>)
{
	if (/: ([^\s]+)\(\d+\.\d+\.\d+\.\d+\)/)
	{
		$roots{$1} = 1;
	}
}

foreach $root (sort keys %roots)
{
	print $root,"\n";
}
