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

##</code><code>##

$fc = do { local $/; <FO> };