#!/usr/bin/perl
use strict;
my $dirName = $ARGV[0];
opendir(DIR, $dirName);
my @files = grep(/\.txt$/,readdir(DIR));
closedir(DIR);

# print all the filenames in our array
my $txtfile;
foreach $txtfile (@files) {
   print "$txtfile\n";
open my $input_fh, '<',$txtfile;
my $delim = $/;
$/ = '';
undef($/);
my $file=<$input_fh>;

close $input_fh;

$file =~ s/(<%--)?\s*<script(.*?)>/($1 ? '' : "\n<%-- ") . "<script$2>"/ige;
$file =~ s=</script>\s*(-->)?='</script>' . ($1 ? '' : " -->\n")=ige;

print $file;

open my $output_fh, '>', $txtfile;
print $output_fh $file;
close $output_fh;
}