local $/;

open(INPUT, shift) or die "Unable to open input file: $!\n";
$input = <INPUT>;
close INPUT;

@input = split /=+\n/, $input;

foreach $count ( 1 .. $#input )
	{
	open(OUT, ">$count.txt") or die "Unable to open output file: $!\n";
	print OUT $input[$count];
	close OUT;
	}