Help for this page

Select Code to Download

Select or download this

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

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

print $string1;