помогите с перловым скриптом

Пример (без создания временного файла) учитывает не только пустые строки, но и в которых есть "пробельные" символы (\t\n\r\f):

#!/usr/bin/perl

open (F, "+< $path") or die $!;
$out = '';

while (<F>) {
s/^\s*$//;
$out .= $_;
}

seek (F, 0, 0) or die $!;
print F $out or die $!;
truncate(F, tell(F)) or die $!;
close F or die $!;

Вот так всех короче!

while(<FILE>) { chomp; s/^\s+//; s/\s+$//; next unless length; # Empty line next if /^#/; # Comment

}