while(<FO>) {
    $fc=$fc.$_;
  }