ed file <<<$'/\<word\>/+,$d\nw'

##</code><code>##

perl -we 'open $F, "+<", $ARGV[0] or die; while (<$F>) { /\bword\b/ and truncate $F, tell $F; }' file