Удаление двойных переводов строк
Вот небольшой скриптик, который удаляет из всех файлов в директории двойные переводы строк:
#!/usr/bin/perl undef($/); foreach $f (<*.*>) { print “$f\n”; if ($f ne ‘ddps.pl’) { open(FH,$f); $l=<FH>; close(FH); $l=~ s/\r\n\s*\r\n/\n/smg; open(FH,”>$f.new”); print FH $l; close(FH); } }