use strict; use warnings; use File::Basename; my $folder_path = '/aboutiso/corp_gov/bod/agendas/2010'; $folder_path = dirname($folder_path); print "folderpath: $folder_path\n"; #### folderpath: /aboutiso/corp_gov/bod/agendas