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>";
				next;
			}
			if ( $flg == 1 ) {
				$line[$i] =~ s/<br \/>//g;
				$line[$i] =~ s/&/&amp;/g;
				$line[$i] =~ s/</&lt;/g;
				$line[$i] =~ s/>/&gt;/g;
				open(OUT, "> datafile.txt");
				print(OUT "/" . $line[$i] . "/" );
				close(OUT);
			}
		}
		$body = join("\n", @line);
		# ここまで改造コード

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