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";

##</code><code>##

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!   GENERIC TEST PLAN (RULES) FOR !!!!!!!!!!!!!!!!!!!!!!! nCaps
!
!   CREATED ON 06/15/15   
!
!   CHANGES:  
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!RECIPE NAME    LOTTYPE PNP     #WAFERS SITEMAP         PRIORITY
!
! PS Level 
ILTPSPR25C080    POR       4099A   25      A300_20B     1
ILTPSPR25C080    SPLIT     4099A   125     A300_20B     1
!
ILTPSPR25N080    POR     4060A   25       A300_20B     1
!ILTPSPR25N080    POR     4060B   25       A300_20B     1