for file in `ls *.doc.txt`
do
  cp $file $(echo $file | sed 's/\.doc/-doc/g')
done