my $data;
open(FH,'<',$file) || die "Oops $!";
local $/ = undef;
$data = <FH>;
close(FH);