Help for this page
# cat 1139933.dat para1 foo bar ... para3 this is enough #
# perl -Mstrict -wne' $/ = ""; s/^(para2.*)^$/$1new text\n/ms; print; ... para3 this is enough #