#!/usr/bin/perl
use strict;
use warnings;
use Encode;
my $_='%%a%%!ver!&^^^ ^*~       你好              are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%';
$_=decode("gb2312",$_);
print "字符数:",s/.//g; 
复制代码