$string1='--NN--NNN--NN--NNN--BBB-----';

1
    while $string1 =~ s/B-/BB/ or $string1 =~ s/-B/BB/;

print $string1;