How to rename the files its directory structure using perl?

Select or download this

html
`-- DCMS_DEMO
...
        |   `-- rev2
        |       `-- rev2.html
        `-- new_block2.html

Select or download this


html
...
        |   `-- rev2
        |       `--checklist_tmprev2.html
        `-- new_block2.html

Select or download this

sub runDir($$);
sub runDir($$) {
...
    }
}
runDir('',$output_dir);

Select or download this

|-- DCMS_DEMO
|   |-- DCMS_DEMO_DCMS_DEMO.config
...
                |   `-- DCMS_DEMO_new_block2_checklist_tmp_rev1_rev1.h
+tml
                `-- rev2
                    `-- DCMS_DEMO_new_block2_checklist_tmp_rev2_rev2.h
+tml

Select Code to Download