$s = 'bbaaccbab sdcbalsbadcnw';;

$s =~ s[(b)(?=[^\s]+$)][B]g;;
bbaaccbab sdcBalsBadcnw