cd [data directory]; for i in *.txt; do perl -pi.bak -e 's/.*/0/ if $. == 2' $i; done