>>254
>>2-3

#!/usr/local/bin/perl -w
require 5.008001;
use strict;
my $str = "UTF-8の文字列";
utf8::decode($str); # UTF-8フラグを付ける
my @chr = split //, $str; # 文字単位で処理される
utf8::encode($_) for @chr; # UTF-8フラグを外す
print join '/', @chr;
__END__