#!/usr/bin/perl
# This is an example from
# http://www.ahinea.com/en/tech/perl-unicode-struggle.html

my $ustring1 = "Hello \x{263A}!\n";  
binmode DATA, ":utf8";
my $ustring2 = <DATA>;

binmode STDOUT, ":utf8";
print "$ustring1$ustring2";
__DATA__
Hello ☺!