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";

• Output:

Character count: 6
Wide character in print at ./peek_test_4.pl line 9.
Euro[ ][€]

• Suppress warning:

binmode(STDOUT, ':utf8');