Select Code to Download

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

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