my $a = "$";
my $b = "$";
my $c = "x";

$a =~ s/$b/$c/g;

print "a=$a\n";