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