Re^2: Slurping search-replace patterns from a file

With just one /e modifier, you keep the $1. A trivial test would have shown that:

$ perl -wE '$r = q{bar$1}; $_ = "foo"; s/(fo)o/$r/e; say'
bar$1
[download]

Comment on Re^2: Slurping search-replace patterns from a file Download Code