39 chars under strict, if we're violating perlvars...

sub j {
  ($_,$@)=@_;s/./$&.substr$@,0,1,''/ge;$_
}
[download]

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