Equipment:                WDM 1696-R2.2 IM277B
                          WDM 162X-R1.0 IM277B
solved:                     Xaa01207 "URU "
                                 ./imo3/all_/sr/ALAMmgt.c
                                ./imo3/all_prd/src/NEQTMalarm.c
                            
Lab:                    CSW_WDM_IM2incremental )

##</code><code>##

#!/agl/tools/perl/bin/perl

 my $data_file = '/data/aww/cgi-bin/diana.txt';  
 my $identifier1 = '1696';
 my $identifier2 = '162x';
 my $identifier3 = '1640';
 open(FILE, "$data_file") || die("Could not open file: $!");  
		
		 while (<FILE>){
		 my (@fields) = split(/\s+/,$_);  
		
              	foreach my $line(@fields){
		 if ($line eq $identifier1 or $line eq $identifier2 or $line eq $identifier3) { print "$line mama";}
					}}
					
		   close FILE;