foreach (0..$#Template) {
$ReadFile[$_] =~ s/\[TITLE\]/$Title/;
...
}