$var =~ s/\[IMG(.*?)\]/<img scr=$1>/g;