Hi Limbic~Region, i did it on two separate programs on the first one i delete from the file the lines i do not use and i generate a new file, on the second program i process the rest of the text, i want to join it but do not find the way

my $output = 'output.txt';

open my $outfile, '>', $output or die "Can't write to $output: $!";

my @array = read_file('file1.log');

for (@array){

next if ($_ =~ /^\TABLE NAME|HEAD0|END|^\s+$/);

print $outfile $_ ;

Second file:

open my $IN, '<', 'output.txt' or die $!;

my @lines = <$IN>;

close $IN;

open my $OUT, '>', 'file2.txt' or die $!;

for my $line(@lines){

chomp $line;

my @data = split /\s+/, $line;

print {$OUT} "xxxxx", $data[0], "yyy", $data2,";","\n";

}

close $OUT;

I do not have idea of to do it all in only one program

BR