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

##</code><code>##

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