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