$Data =~ s/([^\\])\$(\w+)/$1${$2}/g;
  $Data =~ s/\\\$(\w+)/\$$1/g;