Help for this page

Select Code to Download


  1. or download this
    while(<>) {
foreach (/\N{FACE THROWING A KISS}/g) {print "hurray! And here is your
+ emoticon!\n"};
}
  2. or download this
    #!/usr/bin/perl

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