s/foo/bar/ is not just a regular expression, it's a substitution operator. Storing it in a scalar and expecting it to work is going to be just as effective as storing $foo = "2+2" and expecing $bar = $foo to set $bar to 4. You want to

• read perldoc -f eval
• consider whether you really want to use eval
• consider storing coderefs and applying those instead