use strict;
use warnings;

local $/= "\n=";

while (my $line = <DATA>)
{
print "\n------------------------------\n";
if ($line =~ m/Primary \(Reporting\) ID\s*:\s*((?:(?!Level).)*)Level\s*:\s*((?:(?!Group).)*)Group\s*:\s*((?:(?!Reg).)*)/si)
{
	print "Primary (Reporting) ID : $1\nLevel : $2\nGroup : $3";	
}

if ($line =~ m/ID-Node\s*:\s*((?:(?!Inverse).)*)Inverse\s*:\s*((?:(?!\n).)*)/si)
{
	print "\nID-Node : $1\nInverse : $2\n";		
}

print "\nSecondary ID :";

while ($line =~ m/(?<!Primary \(Reporting\) )(?<!Secondary )ID\s*:\s*((?:(?!Inverse).)*)Inverse\s*:\s*((?:(?!\n).)*)/gsi)
{
	print "\nID : $1\tInverse : $2";		
}
print "\n------------------------------\n";

}

__DATA__
======================================================================
Record: 9868943   Version:  2   Timestamp: Sat Feb 18 22:33:43 2006
Primary (Reporting) ID: 240  Level: 2 Group: 1  Reg: no  Event:  51748
Keep: 1  ID-Node: 0x2017  Inverse: 25
Secondary ID:
Keep: 1   ID:  68   Inverse: 23   
Keep: 1   ID: 240   Inverse: 27   
Keep: 1   ID: 368   Inverse: 30   
======================================================================
Record: 9868944   Version:  2   Timestamp: Sat Feb 18 22:33:44 2006
Primary (Reporting) ID: 67  Level: 9 Group: 0  Reg: no  Event:  51749
Keep: 1  ID-Node: 0xA087  Inverse: 55
Secondary ID:
Keep: 1   ID:  62   Inverse: 73   

Output is :
------------------------------
Primary (Reporting) ID : 240
Level : 2
Group : 1
ID-Node : 0x2017
Inverse : 25

Secondary ID :
ID : 68         Inverse : 23
ID : 240        Inverse : 27
ID : 368        Inverse : 30
------------------------------

------------------------------
Primary (Reporting) ID : 67
Level : 9
Group : 0
ID-Node : 0xA087
Inverse : 55

Secondary ID :
ID : 62         Inverse : 73
------------------------------