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