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