#!C:\\Programme\\Perl\\bin
open(FILE, "<xact2") or die "Kann File nicht oeffnen";
while(<FILE>) {
    chomp;
	next if ($_ =~ m/^\!/);
		($event, $id, $msg) = split(/^(\w+)\s+(\d+)\s+(.+)/g);
		push(@data, [$event, $id, $msg]);
		#push(@data, $_);
}
close(FILE);

for ($i=0; $i<=$#data; $i++)
{
	print "$i\n";
   print "0 = $data[$i][0], 1 = $data[$i][1], 2 = $data[$i][2], 3 = $data[$i][2]\n";
}