use strictures; use Encode qw(); my $what = "\303\220\302\223\303\220\302\260\303\221\302\200\303\221\302\200\303\220\302\270 \303\220\302\232\303\220\302\260\303\221\302\201\303\220\302\277\303\220\302\260\303\221\302\200\303\220\302\276\303\220\302\262"; $what = Encode::decode('utf8',$what); $what = Encode::decode('utf8',$what);