$/ = "\$\n";
open BIGFILE, yada yada or die;
while (<BIGFILE>)
{
  my ($filename, $guts) = split /\n/, $_, 2;
  open SMALLFILE, ">$filename" or die;
  print SMALLFILE $guts;
  close SMALLFILE;
}
close BIGFILE;