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";
      }