Remove everything up to the first newline:

$records =~ s/^    # beginning of the string
              .*   # whatever except newline 
              \n   # newline
             //x;
[download]

Update: Simplified.