#!/usr/local/bin/perl -w
use IO::File;
my $file = IO::File->new;

@FN=("out-02-00.txt","out-02-01.txt","out-02-02.txt","out-02-03.txt","out-02-04.txt","out-02-05.txt","out-02-06.txt","out-02-07.txt","out-02-08.txt","out-02-09.txt",
	  "out-02-10.txt","out-02-11.txt","out-02-12.txt","out-02-13.txt","out-02-14.txt","out-02-15.txt","out-02-16.txt","out-02-17.txt","out-02-18.txt",
	  "out-02-20.txt","out-02-21.txt","out-02-22.txt","out-02-23.txt","out-02-24.txt","out-02-25.txt","out-02-26.txt","out-02-27.txt","out-02-28.txt",
	  "out-02-30.txt","out-02-31.txt","out-02-32.txt","out-02-33.txt","out-02-34.txt","out-02-35.txt","out-02-36.txt","out-02-37.txt","out-02-38.txt");

$FN=@FN;

for($j=0; $j<$FN; $j++){
	print "$FN[$j]\n";
}

for($k=0; $k<$FN; $k++){
	print "$FN[$k]\n";
	$filename = <$FN[$k]>;
	chomp ($filename);
	$file->open("< $filename") or die("Can't read the source:$!");
	open(OUT, ">ND_$filename");
	select (OUT);

	@BU=();
	@MA1=();
	@MA2=();
	until ($file->eof) {
	   my $line = $file->getline();
	   if ($line =~ /K-INF,LEAK \(B2/) {
	      my @col3 = split(qr/\s+/s, $line); #split on whitespace
	      push(@BU,"$col3[14]");
	   }
	   elsif($line =~ /0 EID:      93237/) {
	      $line = $file->getline();
	      chomp($line);
	      @col1 = split(qr/\s+/s, $line);
	      push(@MA1,"$col1[3] $col1[4] $col1[5] $col1[6] $col1[7] $col1[8] $col1[9] $col1[10] $col1[11]");
	   }
	   elsif ($line =~ /0 EID:      95241/) {
	      $line = $file->getline();
	      chomp($line);
	      @col2 = split(qr/\s+/s, $line);
	      push(@MA2,"$col2[3] $col2[4] $col2[5] $col2[6] $col2[7] $col2[8] $col2[9]"); 
	   } 
	} # end of until
	for($i=1; $i<=58; $i++){
	      print "$BU[$i-1] $MA1[$i-1] $MA2[$i-1]\n";
	}
	close(OUT);
}