Record FileRecord  "1.8"
{
  Record LotRecord "1234567.123"
  {
    Record WaferRecord "01"
    {
      Field DieOrigin 2 {0, 0}
      Field OrientationInstructions 1 {""}
      Field ProcessEquipmentState 7 {"NONE", "", "", "", "", "", ""}
      Field SampleCenterLocation 2 {-100000, 900000}
      Field SlotNumber 1 {2}

      List DefectList
      {
        Columns 32 { int32 DEFECTID,  int32 XREL,  int32 YREL,  int32 XINDEX,  int32 YINDEX,  
        int32 XSIZE,  int32 YSIZE,  float DEFECTAREA,  int32 DSIZE,  int32 CLASSNUMBER,  
        int32 TEST,  int32 CLUSTERNUMBER,  int32 ROUGHBINNUMBER,  int32 FINEBINNUMBER,  int32 REVIEWSAMPLE,  
        float CONTRAST,  int32 CHANNELID,  int32 MANSEMCLASS,  int32 AUTOONSEMCLASS,  int32 MICROSIGCLASS,  
        int32 MACROSIGCLASS,  int32 AUTOOFFSEMCLASS,  int32 AUTOOFFOPTADC,  int32 FACLASS,  int32 INTENSITY,  
        float KILLPROB,  int32 MACROSIGID,  int32 REGIONID,  ImageList IMAGEINFO,  
        int32 POLARITY,  float CRITICALAREA,  int32 MANOPTCLASS  }
        Data 902
        {
          1 11111 722222 -3 16 1000 600 58000 2000 0 1 0 11 0 0 0.0000 
            0 0 0 0 0 0 0 0 0 0.0000 0 0  N 0 0.0000 0 ;
          1 11111 722222 -3 16 1000 600 58000 2000 0 1 0 11 0 0 0.0000 
            0 0 0 0 0 0 0 0 0 0.0000 0 0  N 0 0.0000 0 ;

##</code><code>##

use strict;
use warnings;
use XML::Simple;

my $file = 'SINGLE.000';
open(AFILE, "<$file");
my @file = <AFILE>;
close AFILE;

my (@array, @tags, @newfile, @listarray, @datatags, @dataarray, @defectdata);
my ($currenttag, $line, $string, $currentline, $listindex, $bracket);

my $index = 0;   #counts line number in @file

while ($index <= $#file){
    
    $currentline = $file[$index];

    $currentline =~ tr/\"/ /; #remove the quotes
    $currentline =~ s/\s*//;  #removed the leading whitespace...
    
    if ($currentline =~ /Record/){
        @array = split(/(\s+)/, $currentline);
        if(!$array[4]){$array[4] = 'none'};
        $currentline = "\<$array[2] value\=\"$array[4]\"\>\n";  #write xml
        push(@tags, $array[2]); #push the RECORD type into the tags array for later closing
        push (@newfile, $currentline);
        $index++;
    }
    
    elsif ($currentline =~ /^\}/){     #if we hit a back bracket, end the data item and by popping off the last value in the hash
        $currenttag = pop(@tags);
        $currentline = "\<\/$currenttag\>\n";  #write xml
        push (@newfile, $currentline);
        $index++;
    }
    
    elsif ($currentline =~ /Field/){
        $currentline =~ s/\{(.*)\}//;  #pull data in between brackets.
        $line = $1;
        $line =~ s/\s//g;  #clear out whitespace
        @array = split(/\s+/, $currentline);
        my $string = "\<$array[1]\>$line\<\/$array[1]\>\n";  #write xml
        push(@newfile, $string);
        $index++
    }
    
    elsif($currentline =~ /^List/){
         @array = split(/(\s+)/, $currentline);
         $currentline = "\<$array[2]\>\n";
         push(@tags, $array[2]);
         push (@newfile, $currentline);
         $index++;
         
         $bracket = 1;
         @listarray = ();
         while ($bracket){     #read all dat in between the brackets and break into a list for hash keys
             chomp($file[$index]);
             push(@listarray, $file[$index]);
             if ($file[$index] =~ /\}/){$bracket = 0}
             $index++;
         }
         
         $string = join('', @listarray);
         $string =~ s/ImageList|float|int32|Columns|string|\s+|\{|\}|\d//g;  #clean up list
         @datatags = split(/,/, $string);
    }
    
    elsif($currentline =~ /^Data/){    # this whole thing breaks up the long string of numbers into their approp. hash key value
         @array = split(/(\s+)/, $currentline);
         $currentline = "\<DATA VALUE = \"$array[2]\"\>\n";
         push(@tags, 'DATA');
         push (@newfile, $currentline);
         $index++;
         
        @dataarray = ();
         until ($file[$index] =~ /\}$/){
             chomp($file[$index]);
             push(@dataarray, $file[$index]);
             $index++;
         }
         
        $string = join('', @dataarray);
        $string =~ s/\{|\}$|\"//g;  #clean up list 
        
        @dataarray = split(/\;/, $string);
        foreach (@dataarray){
            $_ =~ s/\s+/,/g;     #remove all the excess white space.
        };
        
        foreach (@dataarray){           #each line in the data array needs to be split 
            @defectdata = split(/\,/, $_);      # here we split by comma
            shift (@defectdata);                #first item is a space
            $currentline = "\<i"."$defectdata[0]\>\n";   #create defectid key
            push (@newfile, $currentline);
            
            $listindex = 0;
            foreach(@datatags){
                unless($defectdata[$listindex]){$defectdata[$listindex] = 0};
                $currentline = "\<$_\>$defectdata[$listindex]\<\/$_\>\n";
                $listindex++;
                push(@newfile, $currentline);
             }
            $currentline = "\<\/i"."$defectdata[0]\>\n";
            push (@newfile, $currentline); 
            
        }
    }
    else{$index++};
}

unshift(@newfile, "\<\?xml version\=\"1\.0\"\?\>\n");    #add the xml header info

my $newfile = join('', @newfile);
my $data = XMLin($newfile);
my %data = %{$data};

open(BFILE, ">test.xml");
print BFILE @newfile;
close BFILE;