Character Semantics for Built-in Functions 

my $data = "Euro \x{20AC}";

print "Character count: ", length($data), "\n";

$data =~ s/(\W)/[$1]/g;

print $data, "\n";
Character count: 6
Wide character in print at ./peek_test_4.pl line 9.
Euro[ ][€]
binmode(STDOUT, ':utf8');