delete paragraphs

[ktb]

I have a file "test2" with the format of:

[Kent]
Address:    3473278 jones
            omaha, ne 65465
Phone:      Home 8943, Work 83485, Cell 84853
Email:      Home @jdddd.cor, Work 
Birthdate:  88484

[Pat]
Address:    747474 street
            where, CA 848484
Phone:      Home 555-5555, Work 333-3333, Cell 222-22222
Email:      Home [EMAIL PROTECTED], Work 
Birthdate:  8-4-4

I'm trying to delete in place a paragraph, if a name match is found.
The following code does not work but I think it should:)  What am I
doing wrong?  

#!/usr/bin/perl
use strict;
use warnings;

open FILE, '+<test2' || die $!;
chomp (my $name = <@ARGV>);

$^I;
$/ = "";
while (<FILE>) {
    if (/^\[$name/i) {
        s/.//g;
    }
}

Thanks,
kent

-- 
To know the truth is to distort the Universe.
                      Alfred N. Whitehead (adaptation)

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]