Is there not a way to not use $rec and instead to split the record up within the sysread itself? eg: Something akin to:-

sysread(DF, split(/(?=\n)/,$[0]), -s DF);

I'm sure that's jibberish, but you get the idea...