How to insert the whole matched text in the replacement in Perl?

Question

I want to add a string (A) after all specific other strings (bbc). So, I match bbc and want to replace it with itself with A

Answer 1

Use $&, see http://perldoc.perl.org/perlvar.html

echo 'aabbcc' | perl -p -e 's/bbc/$&A/g'

aabbcAc