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