URLまたはメールアドレスであればリンクを貼る

# 引数：文字列
# 戻値：整形済み文字列
sub hrefLink {
   local($_) = @_; 
   $_ =~ s/([^=^\"]|^)((http|ftp):[!#-9\?=A-~]+)/
           $1<a href=$2 target=_top>$2<\/a>/g; 
   $_ =~ s/([\w\-\_]+\@[\w\-\_\.]+)/
           <a href=mailto:$1>$1<\/a>/g; 
   return($_); 
}