Select Code to Download

# Warning, untested code below.
  
...
    $j =~ s/^(\w+)\@DOMAIN$/$1\@$i/;
    print FH $j;  
}

# Warning, untested code below.
for (@templ) {
...
    }
}