$_="He12o wor3d!\n";s{\d}{l}g;print  Sample run: bash-4.1# perl -e '$_="He12o wor3d!\n";s{\d}{l}g;print'

(Not a big deal. Posted just to use at least once in my life s/// with those fancy delimiters.)