$ echo abc | perl -pe 's/(?<!a)(b)+c/x$1c/'
abc
$ echo abc | perl -pe 's/^(?<!a)(b)*c/x$1c/'
abc