$foo =~ s/(123)/function($1)/e;
#     ^