in reply to inserting string using regular expression
$ perl -le'$_ = q/xxx12xxxx345xxxxx6789xxxx/; print; s/(?=\d+)/found/g +; print' xxx12xxxx345xxxxx6789xxxx xxxfound12xxxxfound345xxxxxfound6789xxxx [download]