Select Code to Download

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

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