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