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