$ perl -C -de1
...
DB<1> print "\x{263A}"
☺
DB<2> p "\x{263A}"
Wide character ...
...
☺
My guesswork here was based on a long-standing alias of mine:
$ alias perlu
alias perlu='perl -Mstrict -Mwarnings -Mautodie=:all -Mutf8 -C -E'
For example:
$ perlu 'say for $], "\x{263A}", "\x{ 263A }"'
5.036000
☺
☺
Update (checking for false positives):
$ perl -de1
...
DB<1> print "\x{263A}"
Wide character ...
...
☺
$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E
+'
$ perle 'say for $], "\x{263A}", "\x{ 263A }"'
5.036000
Wide character in say at -e line 1.
☺
Wide character in say at -e line 1.
☺
|