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

# examples of using unicode in perl
# for lists of unicode character sets/codes, see unicode.org/charts

use feature 'unicode_strings';

my $face = "\N{U+263a}";
my $str = "Hello W" . "$face" . "orld\n";
print "$str";