use File::Stream::Improved;
$/ = qr/regex/;
my @records = <HANDLE>;
# where HANDLE might also be $handle