Siempre lo mismo con scripts

[SEF]

Código:

			my $pdate = cmn::mydate($date);
			$temp2 =~ s/\[date\]/$pdate/ig;
			$temp2 =~ s/\[readmore\]/<a href=index.cgi>$lang::back<\/a>/ig;
			$temp2 =~ s/\[text\]/$text/ig;
			$temp2 =~ s/\[title\]/$title/ig;
			$temp2 =~ s/\[picture\]//ig;
			$temp2 =~ s/\[attachedfiles\]/$filetype/ig;

			my $cstring;
			if (!(-e "./comments/$date.txt")){
				$cstring = "<a href=comments.cgi?blog=$date>$lang::postcomments<\/a>";	
			}else{
				$cstring = "<a href=comments.cgi?blog=$date> $lang::postcomments</a> - " . ifcomments($date) . " $lang::total"
			}
			$temp2 =~ s/\[comments\]/$cstring/ig;


			$return .= $temp2;
			undef $printfiles;
			undef $temp2;
			undef $filetype;
		} # if date == blog
	} # foreach @lines
	
	$return .= "
		</td>
	</tr>
</table><br><br><br>
<table width=80%><tr><td>
$svb::fontheader $lang::comments</font><center>
<table width=100% bgcolor=$svb::darkcolor><tr><td height=1></td></tr></table>";
	my @comments;
	if(!(-e "./comments/$blog.txt")){
		$return .= "</center>$svb::fontsmall This entry has no comments.<br><br><center>";
	}else{
		open(INFILE,"./comments/$blog.txt")||cmn::dienice("$lang::read_file_error\: comments file for $blog\: $!!");
		@comments = <INFILE>;
		close INFILE;
		$return .= "<table width=100%>";
		foreach(@comments){
			my ($date,$a,$name,$email,$comments) = split(/###/,$_); 
			$return .= "<tr><td><br>$svb::fontsmall<b>$name\:</b></font></td><td>&nbsp;";
			if($email =~ /^[\w\-\.]+\@[\w\-\.]+\.[\w\-\.]+$/i){
				$return .= "<a href=mailto:$email><img src=$svb::htmlpicpath/email.gif border=0></a>"
			}
			$return .= "</td></tr>
			<tr><td cellspan=2>$svb::fontsmall$comments</font></td></tr>";
		} # foreach comments
		$return .= "</table>";
	} # if the comments file exists
	$return .= "</td></tr></table></center>";
	return $return;


} # sub viewone

sub ifcomments {
	my $blog = $_[0];
	my $return;
	if(!(-e "./comments/$blog.txt")){
		$return = "";
	}else{
		open(INFILE,"./comments/$blog.txt")||cmn::dienice("$lang::read_file_error\: comments file for $blog\: $!!");
		my @comments = <INFILE>;
		close INFILE;
		$return = @comments;
	}
	return $return;
}

Ayuda por favor.