Select Code to Download

my %variables= (
    schema => 'myschema',
...
my $statement= 'select * from $schema.app_table where col1 = $name';

$statement =~ s/\$(\w+)/$variables{ $1 } || '$'.$1/ge;