while(<>) {
foreach (/\N{FACE THROWING A KISS}/g) {print "hurray! And here is your emoticon!\n"};
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use utf8; 
use charnames ':full';
use open qw( :encoding(utf-8) :std );

# while(<>) { # Not working
#   s!\N{FACE THROWING A KISS}!\\includegraphics[height=15pt]{/Users/mstep/Documents/private_txt/anette/pix/emo01.png}!g;
# }

# while(<>) { # Not working
#   s!&#128536;!\\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 working!!!
# }

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

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

# while(<>) {
# foreach (/\x{3DD8}\x{18DE}/g) {print "hurray! And here is your emoticon!\n"}; # this is not working!
# }

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

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