sub formatting_handler
{
    my($self,$main,$text) = @_;

    my @links = ('[',']');
    $$text =~ s/(<a [^>]+>[^<]*<\/a>)/removeLinks(\@links,$1)/ige; # save all links and remove them

    $$text =~ s/\[imgl\=\]/&#mark0;/g;
    $$text =~ s/\[img\=([^\]]+)\]/<img src="$1"\>/g;

    $$text =~ s/\[bl\=\]/&#mark1;/g;
    $$text =~ s/\[b\=([^\]]+)\]/<b>$1<\/b>/g;;

    $$text =~ s/&#mark(\d+);/$links[$1]/g; # put the links back
    
    $$text =~ s/\[il\=\]/&#mark2;/g;
    $$text =~ s/\[i\=([^\]]+)\]/<i>$1<\/i>/g;

    $$text =~ s/\[ul\=\]/&#mark3;/g;
    $$text =~ s/\[u\=([^\]]+)\]/<u>$1<\/u>/g;;
    
        $$text =~ s/\[blinkl\=\]/&#mark4;/g;
    $$text =~ s/\[blink\=([^\]]+)\]/<blink>$1<\/blink>/g;
}