$ cat cwc_utf8.pl
#!/usr/bin/perl -w
 
my $s;
my $x;
my $y;
my $ncword = 0;
my $cword = 0;
 
while (<>) {
    $s = $_;
    $s =~ s/\s//g;
    $x = () = $s =~ /[\x00-\x7f]+?/g;
    $y = () = $s =~ /[^\x00-\x7f]+?/g;
 
    $ncword += $x;
    $cword += $y;
}
 
$cword /= 3;
 
print "\n×ÖÊýͳ¼Æ\n";
print "\t·ÇÖÐÎÄ(²»º¬¿Õ¸ñ):\t$ncword\n";
print "\tÖÐÎÄ:\t\t\t$cword\n";
 
$s = $ncword + $cword;
print "\t¹²¼Æ:\t\t\t$s\n";