It's a bit cleaner with a scalar ref-deref:

$string =~ s/\Q${\TEST}\E/9/;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print