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