正则表达式替换的问题

正则表达式替换的问题

$string =~ s/pattern/replace/;
如果要在replace的地方执行一段perl代码,应该怎么弄呢?
s/replace/your_code/ge;