$variable =~ s/<EVENT>.*?<\/EVENT>//gi;