#! perl -slw
use strict;

my @array = split 'term', do{ local $/; <DATA> };
shift @array; ## Discard leading null

print '---', "\n", $_, "\n" for @array;

__DATA__
term {
yada yada
12345
() ...
}

term only occurs here {
could be 30 lines here
but never that word again until
another block starts
yadada
}

term, etc.