сделал вот так:<div> $retval .=</div><div> $c->div(</div><div> $c->span({}, $_->{'content'}),</div><div> $_->{'info'} ? $c->span({-class=>'red'}, '(' . $_->{'info'} . ')') : '',</div>
<div> );</div><div>не очень красиво, правда :(<br><br><div class="gmail_quote">2009/7/29 Павел Тимонин <span dir="ltr"><<a href="mailto:gg.error@gmail.com">gg.error@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div>буквально вот так:</div><div><br></div>> perl -MData::Dumper -Mutf8 -e 'print Dumper("тест")' ~/ :)<div>
$VAR1 = "\x{442}\x{435}\x{441}\x{442}";</div><div><br></div>
</blockquote></div><br></div>