No but :
print pack('h', 0x814f5c4)
will give you a nice smiling face ☺

{
    use charnames ':full';
    my $smiling_face = "\N{WHITE SMILING FACE}";
}
[download]

Tested under XP and the latest Cygwin

PooLpi ;)