Select Code to Download

#!/usr/bin/perl

...
$template =~ s/\[(\$[\w\[\]\{\}\'\"]*)\]/$1/eeg;
print "Content-type: text/plain\n\n";
print $template;