#!/usr/bin/perl
use strict;
use warnings;
use Encode;

my $bytes = "\x95\x5C"; # 「表」をShift_JISで
my $string = decode "sjis", $bytes;
printf "length(\$string) == %d\n", length($string);
printf "length(\$bytes) == %d\n", length($bytes);