Select Code to Download

while(<LINES>){                                  
    if (m/^--/){   
           push (my @data, [$id,$line]);
...
        $line.=$string;                            
    }                                            
}

while(<LINES>){                                  
    if (m/^--/){   
           next unless defined $line;
...
        $line.=$string;                            
    }                                            
}