#!/usr/bin/perl            
use strict;           
            
my $tempfile = 'tempfile.html';      
my $htmlfile = 'htmlfile.html';     
my $search = "<\?=\$_\['\.TEXT\.'\]\?>";          
my $replace = '<?=NLS(.TEXT.)?>';           
  
open (FH1, "<$tempfile") || die "Cannot Open FH1 - $tempfile - $!";           
open (FH2, ">$htmlfile") || die "Cannot Open FH2 - $htmlfile - $!";           
  
while (my $line = <FH2>) {           
	chomp $line;           
	$line =~ s/$search/$replace/g;           
	print FH1 "$line\n";           
}           
  
close (FH2);           
close (FH1);           
  
rename($tempfile, $htmlfile);