use Unicode::Map8;
my $map = Unicode::Map8->new('ASCII')
print $map->to8($map->to16($wd->decode($my_utf8_string)));