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