$wrapper =~ s/\</&lt;/g;
$wrapper =~ s/\>/&gt;/g;

##</code><code>##

$wrapper =~ s/foo/bar/g;
$wrapper =~ s/bar/foo/g;
...