Help for this page

Select Code to Download

Select or download this
```
use encode;
use Encode::Unicode;
```

Select or download this

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