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