$contents = do{local $/; <FILEHANDLE>;};

##</code><code>##

@contents = <FILEHANDLE>;
$contents = join "", @contents;