# imagine each record starts with "New Record"
local $/="New Record";
open FILE_HANDLE, "<", $File_Name or die "probs opening $File_Name: $!\n";
while (<FILE_HANDLE>) {
    # do something to this block now
    # contained in the $_ variable
}