perl, string и удаление двойных \n

Господа!!!

Очень надо и очень срочно. Надо на perl, из $message заменить \n\n на один \n т.е. что-бы $message не содержал подряд два идущих \n (перевода на новую строку).

Как-бы это сделать?