#this works: 
$current_line =~ q{\A.*? %(.*?): }xms; 
$event_id = $1;