Select Code to Download

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

      if ($face)
      {
...
      {
        print "$face was not true!\n";
      }