use strict; 
use warnings; 
print "Source,Product,Field\n"; 
while (1) { 
    chomp( my $source    = <DATA> ); 
    $source  =~ s/.+= (\S+)/$1/; 
    chomp( my $product   = <DATA> ); 
    $product =~ s/[^=]+= (\S+)/$1/; 
    <DATA>;     # FieldSet 
    <DATA>;     # Request 
    <DATA>;     # FiedlSetType 
    <DATA>;     # FieldSet Option 
    <DATA>;     # Field ID 
    <DATA>;     # Fields 
    chomp( my $value     = <DATA> ); 
    chomp( my $datetime  = <DATA> ); 
    chomp( my $start     = <DATA> ); 
    chomp( my $ab        = <DATA> ); 
    <DATA>;     # ProcessRequest 
    <DATA>;     #  
    print "$source,$product,$value $datetime $start $ab\n"; 
    last if(!<DATA>);     # record Separator 
}     
__DATA__ 
Source = da1  
Products = [p=product1]  
FieldSet =  
Request :  
FieldSetType: Pp  
FieldSet Option:  
Field Id: 0  
Fields:  
value1  
dateTime1  
start1  
ab1  
] (processRequest)  
Jan 04 10:48:46 akd haijkosa jkalkjd klajd   
 
Source = da2  
Products = [p=product2]  
FieldSet =  
Request :  
FieldSetType: Pp  
FieldSet Option:  
Field Id: 0  
Fields:  
value2  
dateTime2  
start2  
ab2  
] (processRequest)  
Jan 04 10:48:46 akd haijkosa jkalkjd klajd