スレ立てるまでもない質問はここで 105匹目

perlの文字列置換でお知恵をお借りしたいです。
ターゲット→@log
置き換え対象→[ ]で囲まれた文字列　[Feel1]〜[Feel13]までの14個
置き換える文字列→<img src="$html_url2/Feel$num.gif" onclick="document.getElementById('talk2').value='[Feel$num]'">
Feelに続く数字を変数$numを使って置換処理をループしたいんですけどどうもうまくいかず･･･