my ($y) = '/a/b/c/d/e/f' =~ m{^(/[^/]+/[^/]+/[^/]+)};

##</code><code>##

my $y = join('', (split(qr{(?=/)}, '/a/b/c/d/e/f'))[0..2]);