#!/usr/bin/perl
use strict;
use warnings;
{
  my $string = "dankogai小飼弾";
  printf "length('%s') == %d\n", $string, length($string);
}
{
  use utf8;
  my $string = "dankogai小飼弾";
  printf "length('%s') == %d\n", $string, length($string);
}