You should realize this means you're building source code on the fly and evaling it. Its a serious security and correctness issue. The following is equivalent and makes the string-eval more visible than just the second /e would. The first /e is completely different in character than the second /e.

s<$regex->[0]>{
    eval qq["$regex->[1]"];
}e
[download]