If your code is accurate, the problem is you're not printing anything to the file. You'd need something more like this:

   $filehandle2 = new IO::File;
   $filehandle2->open (">texthash.text") or die $!;
   print $filehandle2 $newstr;
   $filehandle2->close ();
[download]

--Chris

e-mail jcwren