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

my $ustring1 = "Hello \x{263A}!\n";  
my $ustring2 = <DATA>;
$ustring2 = pack "U0C*", unpack "C*", $ustring2;

print "$ustring1$ustring2";
__DATA__
Hello ☺!