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

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