Help for this page

Select Code to Download

Select or download this

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