Recherche:

Dans ce cas, tu peux remplacer la dernière assertion (?=[^\W_]*[\W_]) avec les "métacaractères" que tu souhaites, exemple:

(?=[^?!#@]*[?!#@])

Qu'est ce que tu entends exactement par méta caractère? un caractère qui ne soit ni une lettre ni un chiffre?

Moi, j'écrirai plutôt ça:

if (($entry_text2 eq $entry_text3) && ($entry_text2 =~...