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

$_ = q{DFR7234C__A_B_C_Bonzo_Dog_D_B};
print;

while ( s{(?<=__)[A-Z]_}{} )
{
    print pos();
}

print;
print q{-} x 25;
# ---------------------

$_ = q{DFR7234C__A_B_C_Bonzo_Dog_D_B};
print;

while ( m{_}g )
{
    print pos();
}

print q{-} x 25;
# ---------------------

$_ = q{DFR7234C__A_B_C_Bonzo_Dog_D_B};
print;

while ( m{_}g )
{
    print pos();
    pos() = 23 if pos() >= 12 && pos() < 26;
}

print q{-} x 25;
# ---------------------