~/$ perl -e '$string=" bbaaccbab sdcbalsbadcnw";while($string=~s/(\S+\s.+?)b(?=a)/$1B/g){}print "$string\n";'
 bbaaccbab sdcBalsBadcnw