Check out Dominus' elegant Text::Template for one possible solution to your problem.

   MeowChow                                               
                print $/='"',(`$^X\144oc $^X\146aq1`)[-2]