$string =~ s/\$/\\\$/g;