buscar y remplazar en archivo

[Max13]

$paramail=$postal->param('paramail');
$demail=$postal->param('demail');
$asunto=$postal->param('dename')." te envio una postal";
$mensaje= "Hola ".$postal->param('paraname').", has recivido una postal que ha sido
mandada desde Ciber Postales Web Bolt 2001. Puedes recoger tu postal desde la siguiente
dirección:\n\n
http://www.webbolt.cjb.net/servicios/postales/archivos/$archivo\n\n
Esperamos que tengas un buen día.\n\n";

###########################Configuracion de envio de mail de notificación#######
#Si descomentaste la linea #use Net::SMTP; deja las siguientes lineas como estan
#hasta #Fin de sendmail, si vas a usar sendmail, entonces descomentalas
#open (MAIL,"|$mailProg -t")||die "No puedo abrir sendmail por que $!";
#;
#print MAIL "To: $paramail\n";
#print MAIL "Reply-to: $demail\n";
#print MAIL "From: $demail\n";
#print MAIL "Subject: $asunto\n\n";
#print MAIL "$mensaje";
#close (MAIL);
#Fin de sendmail

#Si descomentaste la linea #use Net::SMTP; descomenta las siguientes lineas
#hasta #Fin de SMTP y si usaras sendmail dejalas tal como estan
#$smtp = Net::SMTP->new('here.com');#En lugar de here.com pon el nombre de un
#servidor SMTP
#$smtp->mail($paramail);
#$smtp->to($paramail);
#$smtp->data();
#$smtp->datasend("To: $paramail\n");
#$smtp->datasend("From: $demail\n");
#$smtp->datasend("\n");
#$smtp->datasend("$mensaje\n");
#$smtp->dataend();
#$smtp->quit;
#Fin de SMTP
###########################Fin de configuracion de envio de notificacion########

opendir(DIRE,$basearchivos);
@archivos=grep(/$ext/,readdir(DIRE));
closedir(DIRE);
foreach $archivo(@archivos)
{
if (-M "$basearchivos/$archivo" > $EXPIREDAYS)
{
unlink("$basearchivos/$archivo");
}
}
exit;