#!perl
use strict;
use warnings;

my (%val, @line);

while (<>){
  chomp $_;
  my $offset = /^(\s+)/?length($1) : 0;
  if (@line){
     #print "$_ \[DATA]\n";
     my @datavalues = split;
     if (scalar(@datavalues)==scalar(@line)){
     	for (0..$#datavalues){
     	   $line[$_]{VALUE} = $datavalues[$_] ;
           #print "\[ $line[$_]->{NAME}=$line[$_]->{VALUE}] ";
     	   $val{ $line[$_]->{NAME} } = $line[$_]->{VALUE};
     	}
     }else{
		     for my $fld (@line){
		     	$offset = $fld->{OFFSET};
		     	$fld->{VALUE} = substr($_,$offset,length($fld->{NAME}) + $fld->{TRAILINGSPACES} );
		     	$fld->{VALUE}=~s/^\s+//; # Zap leading spaces
		     	$fld->{VALUE}=~s/\s+$//; # and trailing spaces
		     	#print "\[ $fld->{NAME}=$fld->{VALUE}] ";
		     	$val{ $fld->{NAME} } = $fld->{VALUE};
		     }
     }
     #print "\n";
     @line=(); # Zap it
  }else{
     while( m/(\S+)(\s*)/g){
        push @line, {NAME=>$1, TRAILINGSPACES=>length($2),OFFSET=>$offset}; 
        $offset += length($1)+length($2);
     }
     #print "$_\n";
     #print  "  Name =$_->{NAME} \t Tr.Spaces=$_->{TRAILINGSPACES} \t off=$_->{OFFSET}\n" for @line;
  }
}

for (sort keys %val){
	print "  $_\t= $val{$_};\n";
}