while (<$data>) {
  last if /^internal name/;
}

while (<$data>) {
  # do what you want!
}
[download]

PS: there's a predefined DATA filehandle. Do not clobber it. In any case I recommend you to use lexical handles. And to do error checks of course...