perl -e "print $ARGV[0]=~s{\$}{\\\$}r" a$dollar
a\$dollar

or 

perl -e "print $ARGV[0]=~s{([\$\@\%])}{\\\1}gr" a$dollar@rray%%hashes
a\$dollar\@rray\%\%hashes