Interesting method, but it doesn't properly handle:

my $s = "abcfoforrxyz";
my $t = "for";
[download]

There are also serious escaping issues with the interpolated code inside the eval :)

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