#!/usr/bin/perl
$text = "<h1>Bonjour tout le monde (diverses langues) !</h1>

<h2>Anglais</h2>

Hello World!

<h2>Espagnol</h2>

<¡Hola mundo!>Nested Text<--";

$text =~ s/(^[^<\n]+.+|.+[^\/\n>]+$)/<p>$1<\/p>/gm;

print $text;