my $a = "/a/b/c/d/e/f";
my @foo = (split /\//,$a)[1..3];
my $y = join ('/',@foo);
$y =~ s#^#/#;
print "Y = $y\n";