
alex
hello
world
julia
alex


begin:
hello
world
jan
julia
alex
end:

begin:
regexp: (a(\d+))
code:                                   \
     my $c = captures()->[0];           \
     cmp_ok($c->[1],'==',1,"a(1)");     \     
     cmp_ok($c->[0],'eq','a1',"(a1)");       
regexp: (b(\d+))
end:


begin:
regexp: hel.*
regexp: wor.*
regexp: jan
