sub BODYROW_STD  (){ 30 };

sub _body_text { # 本文・続き・概要
	my $cms   = shift;
	my $entry = shift;
	my %var   = @_;
	if ($entry->body ne '') { # 本文
		my $body = $entry->formated_body;

		# ここから改造コード
		my @line = split(/\n/, $body);
		my $i;
		my $flg = 0;
		for ($i = 0; $i <= $#line; $i++) {
			if ($line[$i] =~ /^\@S/ ) {
				$flg = 1;
				$line[$i] = "<PRE class=\"src_code\">";
				next;
			}
			if ($line[$i] =~ /^\@E/ ) {
				$flg = 0;
				$line[$i] = "</PRE><br />";
				next;
			}
			if ( $flg == 1 ) {
				$line[$i] =~ s/<br \/>//g;
				$line[$i] =~ s/&/&/g;
				$line[$i] =~ s/</</g;
				$line[$i] =~ s/>/>/g;
				open(OUT, "> datafile.txt");
				print(OUT "/" . $line[$i] . "/" );
				close(OUT);
			}
		}
		for ($i = 0; $i <= $#line; $i++) {
			if ($line[$i] =~ /\[\[/ ) {
				$line[$i] =~ s/\[\[/<SPAN style='color:red;font-weight:bold'>/g;
			}
			if ($line[$i] =~ /\]\]/ ) {
				$line[$i] =~ s/\]\]/<\/SPAN>/g;
			}
		}
		$body = join("\n", @line);
		# ここまで改造コード

以下オリジナルコードのまま

.src_code {
    margin-left:20px;
    margin-right:20px;
    border-style:solid;
    border-width:1px;
    padding:10px;
    width:auto;
    background-color:#E6E6FA;
    font-weight:bold;
}