tage @ ud af bruger navn

Hej,

Jeg håber her er lidt hjælp at hente. Jeg har et script der kan slette en bruger fra min lille hyggeserver, men jeg skal have lavet en "løkke" der kan ændre et punktum til et snabel-A i mellem bruger navnet og domænenavnet.

Jeg poster lige lidt af scriptet - den del der sletter oplysningerne på harddisken og jeg regner med at det er i den del der smides en lykke ind.

sub delete_mail {
  opendir (DIR, "$mailbox_path\\$username\@web20.dk")  || return;
  $mail_exists = "1";
  closedir (DIR);

if ($mail_exists eq "1") {
$mkill = "rd  /Q /S $mailbox_path\\$username\@web20.dk";
system($mkill);
}
} # end mail

sub delete_web {
  opendir (DIR, "$website_path\\$username")  || return;
  $web_exists = "1";
  closedir (DIR);

if ($web_exists eq "1") {
$wkill = "rd  /Q /S $website_path\\$username";
system($wkill);
}
} #end web