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