my $string = 'aa$aa';
$string =~ s/\$/tmp/g;
print "$string\n";