Die kurze Antwort: durch Encode::decode laufen lassen, und den entsprechenden Codepoint matchen.

Die lange Antwort: Charsets und Unicode in Perl