my $comment =<<'HEREDOC';
テキストテキスト
> 引用されるテキスト
>> 引用されるテキスト
テキストテキスト
文中のURLは自動でリンクされます　http://www.yahoo.co.jp/
メールアドレスも自動でリンクされます　piroli@example.com
ここは>>>クォートされません
HEREDOC

### 記事登録前にエスケープしてしまう
### Windows + ActivePerl では 
 → 
 に変更
$comment =~ s!^(
)+!!g; # 文頭の連続する改行
$comment =~ s!(
)+$!!g; # 文末の連続する改行
$comment =~ s!"!&quot;!g; # "
$comment =~ s!<!&lt;!g;
$comment =~ s!>!&gt;!g;
$comment =~ s!(
)+!<br />!g; # 改行 → <br />

### 引用文をクォート
$comment =~ s!(<br />|^)(&gt;(?:[^<]*|$))!$1<i>$2</i>!g;
### URLを抽出しリンクを作成
$comment =~ s!(http://[w.:/+-?~=&%]+)!<a href="$1">$1</a>!g; # HTTP "
$comment =~ s!(https://[w.:/+-?~=&%]+)!<a href="$1">$1</a>!g; # HTTPS "
$comment =~ s!(ftp://[w.:/+-?~=&%]+)!<a href="$1">$1</a>!g; # FTP "
### メールアドレスを抽出しリンクを作成
$comment =~ s!([w.-]+@[w.-]+)!<a href="mailto:$1">$1</a>!g; #"

print $comment;