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