perl -p -i.bak -e 's/[XYZ]/,/g' files*