perl -pi.bak -e'BEGIN{$/=\1024}($_,$/)=()if 1..1' file.txt