#!usr/local/bin/perl

$file = <STDIN>;
chomp $file;
opendir ($file, "output");
print ("1 \n");
chdir (output);
open (OUTFILE, ">outfile.txt");
print ("2 \n");
while ($filename = readdir (output)){
	if ($filename == ".") {
		$filename = readdir (output);
	}
## Fiz a gambiarra acima pra evitar de abrir os documentos
## "." e "..", lembra? 	
	else {
		open (FILE, $filename) ||
		die ("Cannot open file $filename\n");
		
## Abrindo os arquivos 
	
		print ("Opening $filename\n");
		$linha = <FILE>;
		print OUTFILE ("$linha\n");
		$pula_linha = 0;
		while ($pula_linha <20) {
			$linha = <FILE>;
			$pula_linha++;
			}
## Matando o tempo até chegar aonde interessa...
		@time_series = split (/=/, $linha);
		print OUTFILE ("-initio-\n");
		print OUTFILE ("$linha\n\n\n");
		$linha = <FILE>;
		$pula_linha = 0;
		while ($pula_linha < 4) {
			$linha = <FILE>;
			$pula_linha++;
			}
		while ($linha = <FILE>) {
		@indice = split (/\t/, $linha);
		print OUTFILE ("$indice[3]\t$indice[9]\t$indice[11]\t$indice[23]\n");
		}
	close output;
	}
}