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