for N in *.xml; do
    mv $N ${N/%xml/txt}
done

##</code><code>##

 perl -e 'qx!for N in *.xml\; do  mv \$N \${N/%xml/txt}\; done!;'