これはinline2.plの内容です

#!/usr/local/bin/perl
#SSIインラインテキスト表示用フィルタ(Perlスクリプト表示用)▲(c)p4room(http://p4room.mda.or.jp/)

while(<>){			#ファイルを1行ずつ読み込む
	chop;			#改行を取る
	s/&/&amp;/g ;		#&記号を置き換える
	s/"/&quot;/g ;		#ダブルクォートを置き換える
	s/</&lt;/g ;		#<記号を置き換える
	s/>/&gt;/g ;		#>記号を置き換える
	s/^#(.*)/<font color=green>#$1<\/font>/ ;	#先頭が#なら緑色にする
	s/\t#(.*)/\t<font color=green>#$1<\/font>/ ;	#Tab+#なら緑色にする
	print;			#1行出力する
	print"\n";		#改行を出力する
}
exit;