my $message = 'one :-* smiley';
my ($face, $location, $name) = (':-*', 'here', 'smoochie');
$message =~ s/\Q$face\E/ <img src="$location" alt="$name"> /gi;
print $message, "\n";

##</code><code>##

      if ($face)
      {
        if ($message =~ s/\Q$face\E/ <img src="$location" alt="$name"> /gi)
        {
          print "Substituted for [$face] in [$message]\n";
        }
        else
        {
          print "[$face] was not found in [$message]\n";
        }
      }
      else
      {
        print "$face was not true!\n";
      }