open(FILE,"<$input_file") or die "$input_file: $!\n";
{ local $/ = ""; @data = <FILE> }
close(FILE);