use utf8;use 5.14.2;use encoding 'utf8', STDOUT => 'gb2312';my $str = "ab中国";if ($str =~/([ab]+)(.*)$/) { say $1; say $2;}
