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