s/brad(\d+)bill/brian$1bob/gm

##</code><code>##

perl -le'$foo="bar";print $foo'

##</code><code>##

perl -le"$foo='bar';print $foo"