If you have to do a lot of these substitutions, it might be a good idea to use a templating library, like Text::Template, Template::Simple or Template::Toolkit