foreach my $file ( glob('/root/fd/fg/*.txt') ) { open (MYFILE, "<$file") or die $! ; my $ad ; my @rt ; while (){ if ($_ =~ m/ad/) { ($_ =~ tr/a-z,=//d ) ; $ad = $_ ; } if ($_ =~ m/rt /){ ($_ =~ tr/a-z,=//d) ; push (@rt , $_); } } }