perl在系统默认为UTF-8编码下如何取得字符的ASCII码值

sirius

系统的默认编码为UTF-8,如果字符的ASCII值大于0xC0,调用perl中的ord()函数会认为这个字符为UTF-8字符，而会去取下一个字节的信息，以便组成一个UTF-8字符。我现在只想取得该字符的ASCII编码，而不取下一个字节的信息，请问有函数可以调用吗？