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

use Test::More tests => 4;

sub fill {
    my $_ = shift;
    my $prefix = do { s/^(-*B?)// ; $1 };
    1 while s/-B/BB/g or s/B-/BB/g;
    return "$prefix$_"
}

is(fill('--------NNNNNNN--------NNNNN--------NNNNN------NNNNNNN-------------BBBBB-----'),
        '--------NNNNNNN--------NNNNN--------NNNNN------NNNNNNNBBBBBBBBBBBBBBBBBBBBBBB',
   'test1');

is(fill('---------NNNNN-NNNNNNNNNNNNN----NNNNNNNNNNN---------BBBBBBBBBB'),
        '---------NNNNN-NNNNNNNNNNNNN----NNNNNNNNNNNBBBBBBBBBBBBBBBBBBB',
   'test2');

is(fill('-------NNNNNNN-----------------BBBBBBBBBBBBBBB-------------NNNNNNN'),
        '-------NNNNNNNBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBNNNNNNN',
   'test3');

is(fill('--------BBBBBBBBBBBB-------NNNNNNNNNNNNN------NNNNNN'),
        '--------BBBBBBBBBBBBBBBBBBBNNNNNNNNNNNNN------NNNNNN',
   'test4');