这三个版本的行为都不一样吗?
use open qw( :encoding(UTF-8) :std ); use open qw( :encoding(UTF8) :std ); use open qw( :utf8 :std );
perl utf-8
perl ×1
utf-8 ×1