#!/usr/bin/perl
my $lspath = "./aiml/";
my @files = `ls $lspath`;

foreach (@files) {
   my $filename = $_;
   chop ($filename);
   my $newfilename = $filename."bak";
   $filename = $lspath.$filename;
   $newfilename = $lspath.$newfilename;
   open (FILE, "< $filename");
   open (OUTFILE, "> $newfilename");
   while (<FILE>) {
      if ($_ =~ m/David/) {
         print "BF Change: ".$_;
         $_ =~ s/David/Brian/g;
         print "AF Change: ".$_;
         print OUTFILE $_;
      }
      else {
         print OUTFILE $_;
      }
   }
   close (OUTFILE);
   close (FILE);
   system ("mv -f $newfilename $filename");
}
