#!/usr/bin/perl -w
use 5.6.1;
use strict;

# three smiley faces:
my $string = "\x{263a}\x{263a}\x{263a}";

printf("%s: %d characters\n", $string, length $string);

{
	use bytes;
	printf("%s: %d bytes\n", $string, length $string);
}