while (<@ThisFileArray>) {
    s/\n\n/</p>\n\n<p>/m
    }