$x = join 'B', split /a/, $x, 4;