my $line;
while(<LINES>){                                  
	if (m/^--/){   
           push (my @data, [$id,$line]);                 
           $self->_loaddb(table => 'TABLE',
                          data=>\@data);
	                                           
           $line= undef;                              
           $id++;                                  
	}                                            
	else{                                        
		chomp(my $string = $_);                    
		$line.=$string;                            
	}                                            
}




##########


file.txt


--1
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj
kkkkkkkkkkkkkkk
jhjhjhjhjhjhjhjhjhjhjjjj
--2
kkkkkkkkkkjjjjjjjjjjjjjjjjjjjjjjjjjjj 
ljdfsdhgdhgkkkkkkkkkkkkkkkkk
rrrrrrrrrrr
rrrrrrrrrr
rrrrrrrrrrrrrrrr
--3
ffffffffffffffffffffffff
ggggggggggggggggggggggg
fffffffffffffffffffffffffffffffff
-- 


##################

table 

------------------------
|  ID      |   Line    |
|----------|-----------|
|  123     |   null    |
|----------|-----------|
|  878     |   kkkkk...|
|----------|-----------|
...