🚀 go-pugleaf

TEngo un fichero con el formato:
From:direccion@dominio.com RELAY
From:direccion3@dominio.com RELAY
From:direccion2@dominio.com RELAY

Necesitaria saber como, con un script de perl ejecutando el scrip:
./scrip.pl direccion@dominio.com puedo hacer que me borre esa linea del
archivo y no las demas.

Para ello tengo hecho lo siguente pero no me funciona:
a este script se le llama scrip arg1
como veis el script es para eliminar usuairos de la tabla access del
sendmail

#!/usr/bin/perl
$n=scalar(@ARGV);
if ($n != 1) {
printf ("Uso: usrdel buzon direccionemail\n");
exit(1);
}
$email=@ARGV[0]
open (acc, '/etc/mail/access');
open (ac, '>/etc/mail/access.tmp');
while (<acc>) {
chop();
($from,$resto) = split (/:/);
if (!($buzon eq $user)) {

print ac "$dir\t$buzon\n";
}
}
close (acc);
close (ac);
open (a1, '/etc/mail/access.tmp');
open (a2, '>/etc/mail/access.tmp.tmp');
while(<a1>){
chop();
($email2,$relay) = split (/\t/);
if(!($email2 eq $email)){
print a2 "From:$email\tRELAY\n";
}
}

GRACIAS