sub ReplaceVarNameInsideString

...

  # Detect special 2-letter variable names such as $' or $[ or $3
  if ($TEST =~ m/^(\$[0-9\<\>\(\)!?~=:;,.`'%@&#\+\_\[\]\|\/\\]{1})/)
  {