perl -i~ -p -e 's/^0/1/' *.txt