youtubeタグの展開

#####################
#  メッセージ１件出力
#####################
sub prtmessage {

 my $mode = $_[0]; # 0 : 掲示板 1 : 過去ログ(ボタン表示あり) 2 : 過去ログ(ボタン表示なし) 3 : 検索窓
 my $tlog = $_[1];
 my ( $tag, $refdate, $prtmessage, $btn, $btnfollow, $btnauthor, $btnthread, $newwin,
   $envlist, $envaddr, $envua, $envbr );

の下に

#youtube試験運用

#www用
$msg =~ s/http\:\/\/(?:www\.)?youtube\.com\/watch\?v\=([a-zA-Z0-9\_]{1,})/http\:\/\/www\.youtube\.com\/v\/$1<embed src="http\:\/\/www\.youtube\.com\/v\/$1" type\="application\/x-shockwave-flash" wmode\="transparent" width\="255" height\="210"><\/embed><\/A>/g;
#jp用

$msg =~ s/http\:\/\/(?:jp\.)?youtube\.com\/watch\?v\=([a-zA-Z0-9\_]{1,})/http\:\/\/www\.youtube\.com\/v\/$1<embed src="http\:\/\/www\.youtube\.com\/v\/$1" type\="application\/x-shockwave-flash" wmode\="transparent" width\="255" height\="210"><\/embed><\/A>/g;
と追加すればOK

なお、場合によってはアンカータグが汚くはみ出して表示されることがあるので

$msg =~ s/" target="link">http\:\/\/www\.youtube\.com\/v\/$1//g;

のようにして消しています(ﾟ∇ﾟ)