DCMS_DEMO_
DCMS_DEMO_new_block2_
DCMS_DEMO_new_block2_checklist_tmp_
DCMS_DEMO_new_block2_checklist_tmp_rev1_

##</code><code>##

$subject =~ s/_(?=[^_]*$)//;

##</code><code>##

DCMS_DEMO
DCMS_DEMOnew_block2
DCMS_DEMOnew_block2checklist_tmp
DCMS_DEMOnew_block2checklist_tmprev1


##</code><code>##

DCMS_DEMO
DCMS_DEMO_new_block2
DCMS_DEMO_new_block2_checklist_tmp
DCMS_DEMO_new_block2_checklist_tmp_rev1