How can I loop through files with similar names? This script works just for the first line of the first file and I don't understand the reason. Is there a simpler way to do it? 
This script has been created in order to read files, and write in another file all lines without numbers inside.

```
use Data::Dumper;
use utf8;
#read OUT_AM3.txt, OUT_MOV3.txt, OUT_TA3.txt

opendir (DIR, '.') or die "Couldn't open directory, $!";
my @files = readdir(DIR);
closedir DIR;

$out = "Res.txt";
open (O, ">>", $out);
binmode(O, "utf8");

@eti = ("AM3","TA3","MOV3");
for ($i = 0; $i < @eti; $i++){
      foreach $fh(@files){
            open($fh, "<", "OUT_$eti[$i].txt");
            binmode($fh, "utf8");

            while(defined($l = <$fh>)){
                if (!grep /\-?\d\.\d+/, $l){
                print O $l;
            }
        }
    }
}

```