сделал вот так:<div>    $retval .=</div><div>      $c-&gt;div(</div><div>        $c-&gt;span({}, $_-&gt;{&#39;content&#39;}),</div><div>        $_-&gt;{&#39;info&#39;} ? $c-&gt;span({-class=&gt;&#39;red&#39;}, &#39;(&#39; . $_-&gt;{&#39;info&#39;} . &#39;)&#39;) : &#39;&#39;,</div>

<div>      );</div><div>не очень красиво, правда :(<br><br><div class="gmail_quote">2009/7/29 Павел Тимонин <span dir="ltr">&lt;<a href="mailto:gg.error@gmail.com">gg.error@gmail.com</a>&gt;</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>&gt; perl -MData::Dumper -Mutf8 -e &#39;print Dumper(&quot;тест&quot;)&#39;                                                                                                                                                        ~/ :)<div>


$VAR1 = &quot;\x{442}\x{435}\x{441}\x{442}&quot;;</div><div><br></div>
</blockquote></div><br></div>