Help for this page

Select Code to Download


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