my $iterator = 
    block
        start => qr/^VIEW \s+ (?<name>\w+)/x , 
        stop  => qr/^END_VIEW/        ,
        hash  => sub {
            entry "RECORD";
            group "FIELD", 
                array => sub { 
                    entries "FIELD" 
                };
            entry "INTERVAL";
        }
    ;