use Unicode::Confuse qw!confusable canonical!;

if (confusable ($c)) {
    $c = canonical ($c);
}

Parser/interface to

https://www.unicode.org/Public/security/latest/confusablesSummary.txt

Probably would parse the above file into JSON, and distribute the JSON file with it.