expand(qr/a(.)c/, 'abc', 'a$1${ print \\"haha! lets do something else ...\n\\"; 1 }c');