perl -pi -e's/(\p{IsUpper})/\t$1/g' text.txt