#!/usr/bin/perl
# Time-stamp: <2009-04-22 00:13:43 phm>

use Unicode::EastAsianWidth;
use utf8;
use Encode qw(encode decode);
my $str = '網誌';
($val) = $str =~ m(\A(\p{InEastAsianWide}+)\Z);
print encode('UTF-8', $val), "\n";
$str = '１２３';
($val) = $str =~ m((\p{InFullwidth}{2}+));
print encode('UTF-8', $val), "\n";

