open (FSIN, "$_")||die ("Unable to open SGML.3d file $_");
my $sfile = <FSIN>;
$sfile = encode("ascii", decode("UTF16", $sfile));