my $replace = '"$2ead"';

$s1 =~ s/$pattern/++$k && $replace/gee;
[download]

Note the two /e modifiers and the extra double quotes in $replace. The first eval will change the replacement to "$2ead" and the second eval does the double quote interpolation correctly.

-sauoq
"My two cents aren't worth a dime.";