#!/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;