Help for this page

Select Code to Download

Select or download this

# Expand string to the left
$string4 =~ s!(?<=N)(-+)(?=B)!'B' x length $1!e;

# Expand string to the right
$string4 =~ s!(?<=B)(-+)!'B' x length $1!e;