Select Code to Download

@config = map {s/oldtext/newtext/g; $_; } @config;

...
print"$config[$t][0]\n";
}

for (@config) {s/oldtext/newtext/g}