how to find and replace '$' in a string

cheeku

I have a string like this: "US $100"

Now I want to check if there is a '$' in the string and replace it with '\$' . How can I do it?

hitc

well the problem here is that if you do something like that :

my $test="test $500 test";
$test=~s|\$|\\\$|g;

it will not work because perl will try to interpret $500 as a perl variable.
if you can do that
my $test='test $500 test';
$test=~s|\$|\\\$|g;

it will works since variables between ' ' are not interpreted.

to know if there is a $ :
my $count = ($test =~ tr/$//); # same prob here,if the sentence is between "",it will not work
print $count."\n";