Select Code to Download

my $s = '"abcd"';
print "Try for \"$s\":\n";
...
} else {
  print "It does not match!\n";
}