Help for this page

Select Code to Download

Select or download this

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