You probably want to use eval for something like this. Failing that, look into Parse::RecDescent or Parse::YAPP.

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