Что за ужасы с перлом?

Иммать...

$q="SELECT * FROM `from_web` WHERE `from`='$nick'";
my $sth = $cdbh->prepare($q);
$sth->execute;
while(my $row = $sth->fetchrow_hashref)
{
    my $msg="$$row{message} ($$row{web_num},$time)";
...
    print $msg
    print "Тест: $msg"
...

Да, склеивать скроки пробовал, естественно, и вставкой внутрь строки, как примером, и точкой... пофиг!

попробуй-ка поколдовать с:

use Encode;

и либо Encode::_utf8_off($myvariable);
либо Encode::_utf8_on($myvariable);

что-то из этих двух может помочь =))

Если кодировка страницы и браузера не совпадает, то браузер передает не-ascii символы в utf8-кодах. Так что ни код, ни mysql тут не причем.
преобразовать коды в символы можно через unpack + pack

>Если кодировка страницы и браузера не совпадает, то браузер передает не-ascii символы в utf8-кодах. Так что ни код, ни mysql тут не причем.

В том-то и прикол, что система _вся_ в utf8 (дефолтовая локаль, mysql). Кстати, это не web-серверный скрипт, а самопальный демон для связи БД и Jabber'а. Естественно, Jabber - весь utf8 по дефолту. Но до него дело и не доходит :) ... впрочем, Апач у меня тоже по дефолту в utf8 :)

>Encode::_utf8_on($myvariable);

Помогло. Спасибо.