my $str=q{DFR7234C__A_B_C_Bonzo_Dog_D_B};

  $str =~ s/(?<=__)([A-Z]_)+//g;