in reply to regex in REPLACEMENT in s///

s/.../foo($1,$2)/e

In Section Seekers of Perl Wisdom