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