while(<FH>){
   $data .= $_;
}