open (FILE,"<$input_file") or die "Couldn't open file $input_file, $!\n";
while (<FILE>) {
	chomp;
	if ($_) {
		$entry .= "$_\n";
	} else {
		push @data, $entry;
		$entry = "";
	}
}
close FILE;