ee is eval, and eval, is eval

$ perl -e " $_=q/warn(66)/; s/(.*)/$1/ee; "
66 at (eval 1) line 1.
[download]

I would use String::Interpolate or String::Interpolate::RE or another similar abstraction instead