Perl正则表达式问题

OOO*_*M'' 0 regex perl

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

Kei*_*son 6

例如,s/foo/rand()/e;.