cancellare user htpasswd

[Extreme]

Ciao a tutti, io ho questo script che cancella un utente in un file htpasswd

l'utente nel file htpasswd č scritto in questo modo da un'applicazione che
non posso cambiare:
c2c_xxxxxx user
xxxxxx pass

le x dello user e della pass sono e devono essere uguali.

il comando per cancellare l'utente viene passato tramite un url cosi:
www.miosito.it/cgi-bin/revoke.cgi?pincode=xxxxxx

l'unico problema č che lo script, va alla ricerca dell 'utente xxxxxx e non
dell'utente c2c_xxxxxx
Mi potete cambiare lo script (funzionante) in modo che che ci sia queso
"prefisso" c2c_ durante la ricerca e quindi eliminazione dell'utente.

GRAZIE ( la soluzione deve essere assolutamente questa, non posso fare
variazioni )

print "Content-type: text/html\n\n";

sub removeuser {

$username = $query->param('pincode');

open (READHT, "$htpassfile");

@htpw = <READHT>;

close (READHT);

open (WRITEHT, ">$htpassfile");

flock (WRITEHT,2);

foreach $passline (@htpw) {

($htdbuser, $htdbpass) = split(/\:/, $passline);

if ($htdbuser eq $username) {

print qq~

<tr><td><font face="Arial" size="1">Found $htdbuser check $username.<br>

~;

} else {

print WRITEHT $passline;

}

}

flock (WRITEHT,8);

close (WRITEHT);

&header;

print qq~

<tr><td><font face="Arial" size="2"><br><b><li>User Removed</b><p>

$username has been removed from the database.</font></td></tr>

~;

&footer;

exit;

}