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

##</code><code>##

local $/ = ");\n";
local $\ = $/;
while ($string=<IN>)
{
    if ($string=~ /^FIELD/)
    {
        # no need to skip anything, everything is in $string
    }
    else
    {
    	chomp $string;  # get rid of trailing ");"
          # print will add it again, thanks to $\ 
        @lines=split(/\s+/,$string);
        print "@lines\n";
    }
}