ubuntu 下 lighttpd 支持mod_cgi的配置文件

#!/usr/bin/perl -w

# Example script for demo
#
use strict;
use Encode;
my $sample = "美好：2模糊：2漫画：2门户：2梦幻：2描绘：2迷惑：2美化：2幕后：2迷糊：2蛮好：2棉花：2 买回：2满怀：2买好：2磨合：2梅花：2民航：2名号：2忙活：2";

my $string = decode ("utf8", $sample);
my $sperator = decode ("utf8", "：2");
my @array = split (/$sperator/, $string);

foreach my $word (@array) {
    $word =~ s/\s//;
    print encode ("utf8", $word), "\n";
}

my $len = length ($string);
print $len, "\n";