#!/usr/local/bin/perl -w
#<TEXT>

open(FIN, "<somogyi_raw.txt") or die;
open(FOUT,">somogyi.txt") or die;
$active = 0;
$cnt = 1;
$totline = "";
$nsample = 9;

while (defined($line = <FIN>)) {
    @token = split / /, $line;
    $active = $active || ($token[0] eq "E11");
    if ($active) {
	++$cnt;
	chomp $line;
	if ($cnt == 1) {
	    $totline = $line . " ";
	}
	elsif ($cnt == 2) {
	    $totline .= $line;
	    @token = split / /, $totline;
	    next if (@token < $nsample);
	    $name = "";
	    for ($i = $nsample; $i < @token; ++$i) {
		if ($i != $nsample) { $name .= "_"; }
		$name .= $token[$i];
	    }
	    print FOUT $name . "\t";
	    for ($i = 0; $i < $nsample; ++$i) {
		$j = index $token[$i], "\261";
		if ($j != -1) { $token[$i] = substr $token[$i], 0, $j; }
		print FOUT $token[$i] . "\t" ;
	    }
	    print FOUT "\n";
	}
	else {
	    $cnt = 0;
	}
    }
}