> my $text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
> $text =~ s/\\u(....)/chr hex $1/ge;

класс! это здо́рово! спасибо за пример использования chr и hex

тем самым получаем текст в utf8

если необходимо, то переводим полученный текст в нужную кодировку
например вот так в koi8-r
(не-не, я только перекодирование добавлю, петь и плясать не буду ☺ )

#!/usr/bin/perl
use Encode qw(encode decode);
$text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
$text =~ s/\\u(....)/chr hex $1/ge;
$text = Encode::encode('koi8-r', $text);
print $text;

на пальму первенства не претендую ))