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