s/.../$1' $2"/

##</code><code>##

$string->substitute( qr/pattern/, sub { qq/replacement/ } );