my %vars = (
    foo => 'foozleberry pie',
    bar => 'barzleberry foo', 
); 
my $string = 'foo: $foo and bar: $bar'; 
$string =~ s/\$(\w+)/$vars{$1}/g; 
print $string, "\n";