That works for me, I think you'll have to search for the problem elsewhere. Make sure the dollar signs are in the sting at first place, you have to escape them in a double-quoted string, like:

$x = "The large one costs \$3.50, the small one \$2.50.\n"; 
$x=~s/\$/tmp/g; 
print $x;
[download]