Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -l
#
...
s{(?:(?<=__)|\G)[A-Z]_}{}g;

print;

Select or download this

DFR7234C__A_B_C_Bonzo_Dog_D_B
DFR7234C__Bonzo_Dog_D_B