use strict;
use warnings;

my $way = "/tester/SPECS/7nm/TestRules/avatar/";

my @rit;

opendir( my $rid, $way );
while ( my $entry = readdir $rid ) {
    next unless -f $way . '/' . $entry;
    next if $entry eq '.' or $entry eq '..';
	push @rit, $entry;
}
closedir $rid;

foreach (@rit)
{
my $cat = "/tester/SPECS/7nm/TestRules/avatar/$_";			
open (WAY , $cat) or die("Can't open $cat");
my @lines = <WAY>;
print @lines, "\n";