#!/usr/bin/perl
use utf8;
my $x = '☺';
print length $x, " $x\n";