Select Code to Download

$/ = "\$\n";
open BIGFILE, yada yada or die;
...
  close SMALLFILE;
}
close BIGFILE;

use File::Slurp qw( write_file );

...
while (<BIGFILE>) {
  write_file(split /\n/, $_, 2);
}