local $/=undef;

open (NOTFOUND, "<transact.QDX");	
open (NOTOUT, ">NotOut.txt");

my $lenOfFile = (stat(NOTFOUND)) [7];

while ($position <= $lenOfFile - 64) {	
	sysread NOTFOUND, $record,64;		
	chomp($record = $record);		
	$opcode = unpack ("H*", substr($record, 0,1));
	$subcode = unpack ("H*", substr($record, 1,1));	
	$position +=64;					
	sysseek NOTFOUND, $position, 0;	
	
	if ($opcode eq "60" and $subcode eq "01" ){	
	$plu = unpack("H*", substr($record,2,7));	
	syswrite NOTOUT, $plu . "\t" . $ymd . "\r" . "\n";
	}
}