while (defined ($_ = do { local $/ = "DELIM"; <FILE> })) {
 ...
}