my @dirs=split '/', $name ;
my $out   = join '.', @dirs[4..(@dirs<8 ? $#dirs : 7)];