$ver="abc.txt";
open (IN,$ver);
$new="new.txt";
open(OUT,"> $new");
while (<IN>){
   <IN> and next if /^FIELD/; 
   print OUT;
}