Select Code to Download

while (<$data>) {
  last if /^internal name/;
...
while (<$data>) {
  # do what you want!
}