Select Code to Download

open my $ifh, '<', $filename
  or die "Cannot open '$filename' for reading: $!";
...
foreach my $chunk ( split /Separator\s+\d+/, scalar(<$ifh>) ) {
  # yay chunk!
}

# I might be way off-base here:
no warnings 'uninitialized';
...
    $buffer = '';
  }
}