perl -0777pe's/(?<!\n)\n# file/\n\n# file/g' record_file