my $string = 'foo: $foo and bar: $bar\n';
print $string, "\n";

my $foo = "foozleberry pie";
my $bar = "barzleberry foo";

$string =~ s/(\$\w+)/$1/gee;
print $string, "\n";