>>print FILE,"$mail:$data\n" if ($data ne $dat);
>print FILE "$mail:$data\n" if ($data ne $dat);
>
ой,слона то я и не заметил :) спасибо.

>2 перевести в unixtime и вычесть количество секунд в 10 днях и
>обратно в дату
пробую... спасибо.

однако не всё так просто. редактирование inline что-то не работает. в таком виде скрипт ничего не делает..
+> сначала очистит, потом добавит.. заводить временный массив?
+< добавляет желаемое в конец.
как правильно использовать $^I (как в однострочнике perl -i) в таком скрипте?