buscar y remplazar en archivo

[Max13]

$postal=new CGI;
$imagenp=$baseimagenes.$postal->param('imagen');
$fondop=$basefondos.$postal->param('fondo');
$colordefondop=$postal->param('colordefondo');
$titulop=$postal->param('titulo');
$paranamep="<A href=mailto:".$postal->param('paramail').">".$postal->param('paraname')."</A>";
$denamep="<A href=mailto:".$postal->param('denamemail').">".$posta l->param('dename')."</A>";
$musicap="<EMBED SRC=$basemidis".$postal->param('musica')." HIDDEN=FALSE AUTOSTART=TRUE VOLUME=100 WIDTH=150 HEIGHT=50 ></EMBED>";
$temp=$postal->param('musica');
$temp=~ s/\_/\ /;
$musicap=$temp."<BR>\n".$musicap;
$colortextop=$postal->param('colortexto');
$textop=$postal->param('texto');
if($imagenp=~ /\.swf/)
{
$imagenp="<embed src=".$imagenp." quality=high bgcolor=#000000 width=522
height=87 type=\"application/x-shockwave-flash\"
pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\"
border=\"0\" vspace=\"0\" hspace=\"0\"></embed>";
}
else
{
$imagenp="<A href=\"http://www.webbolt.cjb.net/servicios/postales/\">
<IMG src=\"".$imagenp."\" border=\"0\" alt=\"Postal\"></A>";
}
$ext=".htm";

($sec,$min,$hour,$mday,$mon,$year) = localtime(time);

if ($mday<10)
{$mday='0'.$mday}
if ($mon<10)
{
$mon+=1;
$mon='0'.$mon;
}
else
{$mon+=1;}

$year+=1900;
$archivo=$mday.$mon.$year.$hour.$min.$sec.$ext;
open(FILE1,"< plantilla.htm")||die "No puedo abrir sendmail por que $!";
@uno=<FILE1>;
close FILE1;

for($i=0;$i<@uno;++$i)
{
$uno[$i]=~ s/\$fondo/$fondop/;
$uno[$i]=~ s/\$colordefondo/$colordefondop/;
$uno[$i]=~ s/\$colortexto/$colortextop/;
$uno[$i]=~ s/\$titulo/$titulop/;
$uno[$i]=~ s/\$de/$denamep/;
$uno[$i]=~ s/\$para/$paranamep/;
$uno[$i]=~ s/\$imagen/$imagenp/;
$uno[$i]=~ s/\$texto/$textop/;
$uno[$i]=~ s/\$musica/$musicap/;
}

open(FILE2,"> $basearchivos$archivo")||die "No puedo abrir sendmail por que $!";
print FILE2 @uno;
close FILE2;