$ver="abc.txt";
open (IN,$ver);

$new="new.txt";
open(OUT,"> $new");

while ($string=<IN>)
{ 
   if ($string=~ /^FIELD/)
   {
   	next;
   	$line=<IN>;
   	next if $line=<IN>;                
   }            
   else
   {
   	@lines=split(/\s+/,$string);
   	print OUT "@lines\n";
   }
    	
}