Select Code to Download

my $a = "$";
my $b = "$";
...
$a =~ s/$b/$c/g;

print "a=$a\n";

# conceptually, the following is like $a=~s/$b/$c/, but is safe if $b 
+has metacharacters in it
sub string_substitution_one {
...
  }
  return $found;
}