use strict;
open(HIST, "c:\\History.log") || die "\n$_ : No log file was found\n";
chomp(my @status = <HIST>);
for my $line (@status)
{
	next if ($line =~ /=+|START TIME|^\s+$/);
	#print "$line\n";
	$line =~ /^(.+)\s+\w+\s+(\w+)\s+(.+)$/;
	print "\n\n$1, \n$2, $3\n\n________________________\n"	;
}