while (<$file>)   {

   push (@data, "$_\n");


  }

print @data;


##</code><code>##


$data = do { local $/; $_ };