$text =~ s~[link=(\[\w/\:\.]+)\](.+)\[/link\]~<a href='$1'>$2</a>~g;

##</code><code>##

$text =~ s~\[img\](.+)\[/link\]~<img src='$1'>~g;