#!/usr/bin/perl

$files0 = `ls *desc`;
@files = split("\n", $files0);

foreach $file( @files) {

	open( INPUT, $file);
	$i = 1;  $buf = "";
	while( $this_line = <INPUT>) {
		if( $i != 2 & $i != 4 & $i != 6 & $i != 8) {
			$buf .= $this_line;
		}
		$i++
	}
	close( INPUT);
	open( OUTPUT, "> $file");
	print OUTPUT $buf;
	close( OUTPUT);
		
	print "Fixed $file \n";
}

exit( 0);