local $/ = '$$$$'. "\n";
while (<DATAFILE>){
    # $_ contains a record here
}