$openbr="<";
$closebr=">";

##</code><code>##

$wholepage=~s/</$openbr/g;
$wholepage=~s/>/$closebr/g;

##</code><code>##

$wholepage=~s/</</g;
$wholepage=~s/>/>/g;