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