perl -ni.bak -e 'if ($body) { print } else { $body = 1 if m/^$/ }' textfiles