while (<FILE>) {
    $data1 .= $_;
}