#!/usr/local/bin/perl
#

sub CHK_CMD_LINE {
        if ( $#ARGV < 0 )
        {
        print "Usage: ", $0, " inputfiles \n";
        exit 0;
        }
}

sub CLEAN_DATA {
        $_ =~ s/<AUTHOR> Michael Keen <\/AUTHOR>/<AUTHOR1> Cyril Cleverdon <\/Author1> \n<AUTHOR2> Michael Keen <\/AUTHOR2>/;  
        $_ =~ s/<EDITOR>   <\/EDITOR>/<EDITOR1>   <\/EDITOR1>/;
}

&CHK_CMD_LINE;
for $arg (@ARGV) 
  {
  open( INPUT, $arg ) or die "Can't open input file: $arg";
  open( OUTPUT, ">$arg.rev") or die "can't open output file: $arg.rev";
  while (<INPUT>) 
  {          
    &CLEAN_DATA;
    print ( OUTPUT $_);
  }
  close( INPUT );
  close( OUTPUT );
  }