while($data) {
	# Find next beginning-of-record flag & extract record...
	$data =~ s/^[^\xfe]*(\xfe\xfe\xfe\xfe[^\xfe]+)// || die "No luck";
	my $event=$1;

	# Send record to parser...
	$parser->parse( $event );

	# Print restult...
	print "events DUMP:\n", Dumper($parser->{events}), "\n"; }
}