Select Code to Download

use warnings;
use strict;
...

$element->push_content ($copy);
print $element->as_HTML(undef, '   ', {});

<root><div class="ourobject">
      <script language="JavaScript" type="text/JavaScript">embedLabTut
+orClient("erewhon", "somewhere/object.obj", 255, 127)</script>
...
         </object>
      </noscript>
   </div></root>