use strict;
use warnings;

my (@unix_data,@nt_data);


open LOG, "nt_data.txt" or die "Cannot open unix_data.txt $!";

while (<LOG>) {
 chomp;
 my $hashname;
 my @keysandvalues;
 my @field = split /,/, $_;
 foreach (@field) {
     my ($key, $value) = split /\s*=\s*/, $_;
     if ($key =~ /^(LocalTran)(\w*)(Number)$/) { $hashname=$value; }
     push @keysandvalues, $key;
     push @keysandvalues, $value;
  }
 %{$hashname}=@keysandvalues;
 push @nt_data,\%{$hashname};
}

foreach (@nt_data) {
 my $key;
 print "-+" x 90 . "\n";
 foreach $key (keys %{$_}) {print "$key => ${$_}{$key}\n";}
}