tie @ThisFile, 'Tie::File', 'c:/index.html';
foreach(@ThisFile) {s/$SearchText/$ReplaceText/g};
untie @ThisFile;