### 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);
      }
   }