or download this
use Encode qw(decode);
my $real_string = decode("utf8",$input_string); #assumes $input string
+ is in UTF-8 encoding
print "string is ".lenght($real_string)." characters\n"; # length() no
+w interprets $real_string in character instead of bytes.