GriffinEvo_question

data.txt

 2  zlm  z2m
 1   2
 0   2   residual
0.1777          5.08123E-002
5.08123E-002    0.4513
 1   2   line
0.8389          -6.64123E-002
-6.64123E-002   0.554

parse.pl

#!/usr/bin/env perl
use strict;
use warnings;

# run like
# perl parse.pl data.txt
# or
# cat data.txt | perl parse.pl

my %data;
my $state = '';

while(<>) {
    my @row = split;
    if ($row[-1] =~ /(residual|line)/ ) {
	$state = $1;
# not empty 
    } elsif ( length $state ) { 
	if ( ! exists $data{$state} ) { 
# first line of residual or state block
	    $data{$state} = [ $row[0] ];
	} else {
	    push @{$data{$state}}, $row[1];
	}
    }
}

for my $type ( keys %data ) {
    print join("\t", $type, @{$data{$type}}), "\n";
}