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


##</code><code>##

 
 if ($_ =~ /=E-(.*)=event/){
    $event_prepare{$1} = 1;
 }