my @Vars = split /#/,$line;

# ...

$template_zeile =~ s/\[VAR(\d)+\]/$Vars[$1]/g;