#!/usr/bin/perl

use strict;
use warnings;
use utf8; 
use charnames ':full';

# while(<>) {
#   s!\x{D83D}\x{DE18}!\\includegraphics[height=15pt]{/Users/mstep/Documents/private_txt/anette/pix/emo01.png}!g
# }

# while(<>) {
# foreach (/\x{0020}/g) {print "hurray!\n"}; # this is working! (Searches for a space!)
# }

while(<>) {
foreach (/\N{FACE THROWING A KISS}/g) {print "hurray! And here is your emoticon!\n"}; # this is not working! (Searches for the emoticon &#128536; !)
}

# while(<>) {
# foreach (/&#128536;/g) {print "hurray! And here is your emoticon!\n"}; # this is not working! (Searches for the emoticon &#128536; !)
# }

# while(<>) {
# foreach (/\x{D83D}\x{DE18}/g) {print "hurray! And here is your emoticon!\n"}; # this is not working! (Searches for the emoticon &#128536; !)
# }

# while(<>) {
# foreach (/\N{U+D83DDE18}/g) {print "hurray! And here is your emoticon!\n"}; # this is not working! (Searches for the emoticon &#128536; !)
# }

# while(<>) {
# foreach (/\N{U+D83D}\N{U+DE18}/g) {print "hurray! And here is your emoticon!\n"}; # this is not working! (Searches for the emoticon &#128536; !)
# }

# in BBEdit the search pattern \x{D83D}\x{DE18} for the emoticon was working
# hexdump is giving U+D83D U+DE18