$folder_path =~ s{/[^/]*/\z}{};