Perl ASCII 字符判断

主要还是看ASCII码的值，
$str =~ m/[^\0-\127]/
$str =~ m/[^\x0-\x7f]/

要注意反斜线的作用，转义符，一定不要少！