knoppix@Microknoppix:~$ perl -E '
> $_ = q{bbaaccbab sdcbalsbadcbnw};
> s/(\s?\w+?)ba/\1Ba/g;
> say;'
bBaaccBab sdcBalsBadcbnw
knoppix@Microknoppix:~$