Select Code to Download

while () {
    $_ = substr($records, $p, index($records, "\n", $p) - $p);
...
while ($records =~ /(.*?)\n/g) {
    # do whatever with data now in $1
}

for (split(/\n/, $records)) {
    # do whatever with data now in $_
}