while (<readthefile>)

       $_ =~ s///g;

       print WriteData "$_";
       print "$/";

     }