Select Code to Download

local $ARGV = ($templfile);
my $i = '';
...
# cleanup:
delete $hashref->{''};

while (<>)
{
...
s/^\s*<\s*TEMPLATE\s+NAME="(.*?)"\s*>\s*//i 
    for values %$hashref;

local $/;
local $_ = <>;

%$hashref = /\s*<\s*TEMPLATE\s+NAME="(.*?)"\s*>(.*?)\s*<\s*\/\s*TEMPLA
+TE\s*>/sig;