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

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