perl -lne "print $first++? q{</div><div>}:q{<div>} and next if 0==index $_, "[Sidenote"; print; print q{</div>} if eof" letters.txt