use encode;
use Encode::Unicode;

##</code><code>##

while($val=~/<cd>(.*?)<\/cd>/gsi){
my $no = decode_utf8($1);
binmode STDOUT, ":utf8";}