If you use perl 5.10 or newer, you can use \K to exclude everything on its left from the subsitution:

1 while s/ \s [^b]* \K b (?=a) /B/x;
#                    ^ only start the substitution here
#             ^ go to the first b
#          ^ only search second string
[download]

(Update: added the "before a" criterion)