Originariamente inviato da Alhazred
Ho capito poco di ciò che vuoi fare, ma distinguere singolare e plurale non è per niente facile, da una letta qui.
Ho messo così, sembra funzionare:

$paroleNoGood = array ("mel(a|e)","per(a|e)");