#!/opt/perl/bin/perl
use strict;
use warnings;
use charnames ':full';

binmode STDOUT, ":utf8";
my $string = ':)';

print "$string becomes: ";

$string =~ s/:\)/\N{WHITE SMILING FACE}/;

print "$string\n$string becomes: ";

$string =~ s/\N{WHITE SMILING FACE}/\N{BLACK SMILING FACE}/;

print "$string\n$string becomes: ";

$string =~s/\N{BLACK SMILING FACE}/:\)/;

print "$string\n";