Select Code to Download

my $template = snarf('template.htm');
while ($template =~ /(\$[:alpha:]\w*)/g) {
...
  $template =~ s/\Q$variable_name\E/$value/g;
}
print $template;