$t = 'FD02:3539:700B:1::FE';
if ($t =~ /^([^:]*):([^:]*):([^:]*):([^:]*)::([^:]*)/)
{
	print "$1\t$2\t$3\t$4\t$5";
}