use CGI;
@outputFromSemanticCompare = qw/ a < a > a < a > /;
print CGI->blockquote(
    qw[ now you're xml ],
    @outputFromSemanticCompare
)
__END__
<blockquote>now you're xml a < a > a < a ></blockquote>