Don't hold me to this, but I believe the difference in speed is the eval. A s///e causes perl to eval the REPLACEMENT part. The perldoc for eval warns that this is an expensive thing to do.

Your regex merely does double-quotish expansion. Even with the other work you are doing, you are not kicking off a new interpreter.

But this is only a guess.
Mik