my $out   = join('.', ( split('/', $name) )[4..7]);

##</code><code>##

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