#!/usr/bin/perl -w





use strict;





my @filelist = < S2002* >;


my %PNODES;








for (@filelist)


{


    open(FILE,$_);


    while (<FILE>)


    {


        if ($_ =~ m/.*PNODE:.*/)


        {


            $PNODES{$_} = 1;


        }


    }


}