Perl замена переменной

[Link]

Вообщем нужно в perl чате сделать смайлики посредством того, что пишеш например в строке [5] и чтобы этот тэг преобразовывался в gif файл.

В php это делается просто, вот так:

 

$bazar = str_replace("[5]", "<img src=50.gif> ", $bazar);

 

Как это сделать в perl ?

[Link]

Разобрался, делается просто:

$bazar=~ s([5])(<img src="50.gif">);