>perl -wMstrict -le "my $folder_path = '/aboutiso/corp_gov/bod/agendas/2010'; $folder_path =~ s{ / [^/]+ \z }{}xms; print qq{folderpath: '$folder_path'}; " folderpath: '/aboutiso/corp_gov/bod/agendas'