#!/usr/bin/perl -w
use strict;
my $my_template_string = 'bar ${var1} foo foo ${var2} bar bar BAAAR!';
my %V = (var1=>"Guybrush", var2=>"Purcell");
(my $string = $my_template_string ) =~ s/\$\{(.*?)\}/$V{$1}/eg;
print $string;