Perl正则表达式问题

Question

如何在regex replace中执行一些代码，例如，用新的随机数替换几次？

Answer 1

例如，s/foo/rand()/e;。