irregex added by mercora on Thu Sep 6 17:48:32 2012

#!/usr/local/bin/csi -s

(use irregex)

(define test "action_received_subscr_notify_url")

(pp (irregex-match-substring
     (irregex-search
      '(: "action_" (submatch (: (+ any))) (? "_url") )
      test) 1))