if ($page_body =~ /.*?<EVENT>(.*?)<\/EVENT>.*?/)
      { $variable = $1; }