#!/usr/local/bin/perl -l
#
use strict;
use warnings;

$_ = q{DFR7234C__A_B_C_Bonzo_Dog_D_B};
print;

s{(?:(?<=__)|\G)[A-Z]_}{}g;

print;