{
open (FILE,"<$input_file") or die "Couldn't open file $input_file, $!\n";
local $/ = undef;
$slurp = <FILE>;
close FILE;
}
@data = split (/\n{2,}/,$slurp);