{
  local $/ = q{};
  for (@ThisFileArray) {
    chomp;
    push @NewTextArray, qq{<p>$_</p>\n};
	}
        @FormattedParagraphs = @NewTextArray;
		foreach $newline (@FormattedParagraphs) {
			$newline =~ s/<p><\/p>//;
			}
	@NewTextArray = ();	
	@ThisFileArray = ();
}