How to match the file and rename the contents in the .config files of directories and subdirectories using perl?

Select or download this

PROJECT:DCMS_DEMO:prj1
BLOCK:de_top:blk1
...
CHECKLIST:Block_Physical_design_checklist:checklist2
CHECKLIST:CAD_checklist:checklist3
CHECKLIST:DFT:checklist4

Select or download this

##READ THE TEXT FILE AND RENAME THE DIRECTORIES ####
my $dir_map = read_map($mapfile);
...
    close $fh;
    return \%dir_map;
}

Select or download this

 DCMS_DEMO
    |-- DCMS_DEMO.config
...
    |   |   |-- rev1
    |   |   |   |-- rev1.config
    |   |   |   `-- rev1.html

Select or download this

blk3 : 0% : 0%
blk1 : 0.68% : 0.99%
blk2 : 0.00% : 0.00%
OVERALL_STATUS=0.23%
PARTIAL_STATUS=0.33%

Select or download this

test : 0% : 0%
de_top : 0.68% : 0.99%
...
OVERALL_STATUS=0.23%
PARTIAL_STATUS=0.33%

Select Code to Download