#!/usr/bin/perl 
my $file_name = "test.txt";
my @aspxfiles=glob('.*aspx');
foreach $file(@aspxfiles)
{

   open(INF,$file) || die "file could not open\n";
my @line;
while(@line = <INF>) {

        if ( $line =~ s/<\/script/<\%\-\-<script/g) {
               open(INF,'>>$file_name') || die "could not open in write mode";
                
                close(INF);
        } 
        close(INF);
}
}