Help for this page
if ($_ =~ /=E-(.*)=event/){ $event = $1; push @event_prepare, $event; }
if ($_ =~ /=E-(.*)=event/){ $event_prepare{$1} = 1; }