I hope this is no production code...?

The regex is totally unreadable, you should use the /x modifier and align and comment the regex.

Now to the core of the problem: You need to convert the strings into perl's internal format before doing a regex match on them. You can do this with Encode::decode.