binmode $FH;
local $/;
$data = <$FH>;