$writer->characters($$tag);

##</code><code>##

$writer->characters($vars{$tag});