$ perl -wde 0
main::(-e:1):   0
  DB<1> $_ = 'a+b*^c$]d'
  DB<2> s/([+*^\$\]])/\\$1/g
  DB<3> p $_
a\+b\*\^c\$\]d