use strict;
use warnings;

{
	local $/;
	open my $fh, '<', 'logFile.txt' or die $!;
	my $data = <$fh>;

	while (
		$data =~ /
			(?=\[\d{4})			# Start record
			\[(?<date>.+?)\]\s*
			\[(?<active>.+?)\]\s*
			ExecuteThread:\s*(?<executeThread>.+?)
			INFO\s*-\s*(?<info>.+?)
			(?=\[\d{4}|\Z)		# End record
			/gsx
	  )
	{

		print 'date: ',          "$+{date}\n";
		print 'active: ',        "$+{active}\n";
		print 'executeThread: ', "$+{executeThread}\n";
		print 'info: ',          "$+{info}\n";
	}
}