$str =~s{ (?: [^/]* / ){5} ( \w+ ) .* }{$1}x;