Yeah, string eval can be dangerous :)

You want to use String::Interpolate::RE , or if you want more on Corion/tobyink's manual approach, see printig with variables in text , simple regular expression , s/// treat rhs as regex , string interpolation at the hop )