Удалить определённые строки в файле

$tip18 = $Registry->{"HKEY_LOCAL_MACHINE/Software/Microsoft/"
                  . "Windows/CurrentVersion/Explorer/Tips//18" };

$Registry->{"LMachine/Software/Microsoft/Windows/CurrentVersion/Explorer/Tips//186"}
         = "Be very careful when making changes to the Registry!";

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
            || Win32::OLE->new('Excel.Application', 'Quit');
 
my $Book = $Excel->Workbooks->Open($excelfile);   
 
my $Sheet = $Book->Worksheets("Sheet1");
 
with ($Sheet->PageSetup, 
    FitToPagesWide     =>$vtpages, 
    FitToPagesTall     =>$vtpages,
    Zoom               =>$vtfalse,     
    PrintGridlines     =>0,
    LeftHeader         => "Using Perl and Excel",
    FirstPageNumber    => xlAutomatic,
    PrintTitleRows     => "1:1");

# Программа, добавляющая объект Contact
# Запускать можно под Linux,AIX,Solaris,HP-UX,FreeBSD,OpenVMS,Mac OS X, Windows etc
 
use Net::LDAP;
 
my $dc = 'dc1';
my $user = 'administrator@mycorp.com';
my $passwd = 'Adminpasswd';
my $parent_dn = "cn=users,dc=mycorp, dc=com";
 
my $ldap = Net::LDAP->new($dc) or die "$@\n";
my $rc = $ldap->bind($user, password => $passwd);
die $rc->error if $rc->code;
 
$rc = $ldap->add("cn=mycontact, $parent_dn",
    attrs        => [
    objectclass        => 'contact',
    displayName        => 'John Doe',
    sn                 => 'Doe',
    givenName          => 'John',
    telephoneNumber    => '555-123-4567',
                    ]);
 
if ($rc->code) {
  print "Add failed: ", $rc->error, "\n";
}
else {
  print "Add successful\n";
}
$ldap->unbind;

#создает файл без установленного  Excel и на любой платформе
# Linux,AIX,Solaris,HP-UX,FreeBSD,OpenVMS, Mac OS X,Windows etc
# работает на порядок быстрее, чем через OLE Automation
 
#!/usr/bin/perl -w
 
    use strict;
    use Spreadsheet::WriteExcelXML;
 
    # Create a new workbook called simple.xls and add a worksheet
    my $workbook  = Spreadsheet::WriteExcelXML->new("simple.xls");
    my $worksheet = $workbook->add_worksheet();
 
    # The general syntax is write($row, $column, $token). Note that row and
    # column are zero indexed
 
    # Write some text
    $worksheet->write(0, 0,  "Hi Excel!");
 
 
    # Write some numbers
    $worksheet->write(2, 0,  3);          # Writes 3
    $worksheet->write(3, 0,  3.00000);    # Writes 3
    $worksheet->write(4, 0,  3.00001);    # Writes 3.00001
    $worksheet->write(5, 0,  3.14159);    # TeX revision no.?
 
 
    # Write some formulas
    $worksheet->write(7, 0,  '=A3 + A6');
    $worksheet->write(8, 0,  '=IF(A5>3,"Yes", "No")');
 
    # Write a hyperlink
    $worksheet->write(10, 0, 'http://www.perl.com/');
 
    # Set the column width for columns 1, 2, 3 and 4
    $worksheet->set_column(0, 3, 15);