use Encode qw(from_to);
open (FSIN, "$_")||die ("Unable to open SGML.3d file $_");
my $sfile = <FSIN>;
from_to($sfile,'UTF-16LE','ascii'); # or latin1, iso-8859-1 ...