echo abbc | perl -pe 's/(?<!a)((b)*c)/x$1/'
abxbc  # gewünscht: abbc