%vars = (
  hostname => 'my.example.com',
  sitename => 'My Example',
);

#...

while(<SOURCE>)
{
  s/\$\{(\w+?)\}/$vars{$1}/e;
  $text .= $_;
}