#!/usr/bin/perl -i.bak -w

use strict;
####Script to perform Inline editing of files#####
####Creates a .bak file with the contents of original file###

my$dir='testSNL';
my@files;

opendir(DIR, $dir) or die "Can't Open DIR\n";
while(my$file=readdir DIR){
push @files, "$dir/$file" unless -d "$dir/$file";
}
closedir DIR;

{
local @ARGV=@files;
while(<>){

s/A t=\d*/A/g;
't=\d*' <=>'t=\d*';
print
}
}