while (my $range = /begin_item/i.../end_item/i) {
    # skip the first and last lines if you want...
    next unless $range > 1 && substr($range, -2) ne 'E0';

    # deal with data member
}