Thank you for the response. I haven't tried this yet but I will shortley. The problem I'm having is first I have to search and grep for each rmtdb.lrl file because each server is different. This is what I'm working with for that purpose.

### Collect and parse rmt(*)db.lrl files.
my @dirs=qw(/bb/bin/jwarfel);
find(\&parse, @dirs);
   sub parse {
      if (/^rmt[1-9]|[1-9][1-9]|db.lrl$/) {
         copy("$_" , "$_.tmp");
         system "cat $_.tmp | cut -d ' ' -f1 > $_.tmp1";
         open $_, "< $_.tmp1";
         @$_ = <$_>; 
         close $_;
         unlink "$_.tmp", "$_.tmp1";
         foreach (@$_) {s/$_/\L$_/gi;}
         $rmtdb="$_";
         push(@rmtdbs , $rmtdb);
      }
   }
[download]