my %repl = qw /
        <      &lt;
        >      &gt;
        foo    bar
        bar    foo
    /;
    $wrapper =~ s/([<>]|foo|bar)/$repl{$1}/g;