Select Code to Download

$RGX_EVENTID = qr{\A.*? %(.*?): }xms;
if ( $current_line =~ /$RGX_EVENTID/ ) {
    print "got event_id //$1// from input //$_//\n";
}