Select Code to Download

open FILE, "path/to/file";
local $/ = "\n\n";
my $first_part = <FILE>;

open FILE, "path/to/file";
local $/ = undef;
...
my $second_part = 
  reverse substr $whole_file, $first_blank_pos;