uasi · January 26, 2010 18:41
diff --git a/gistfile1.PL b/gistfile1.PL
 use v6;

 multi sub grep ($cond, @array, :@between where { .elems == 2 }) {
    my $level = 0;
    gather for @array {
        $level-- if $level && $_ ~~ @between[1];
        take $_  if $level && $_ ~~ $cond;
        $level++ if           $_ ~~ @between[0];
    }
 }

 grep *, <a ( b ( c d ) ) e>, :between<( )>;  # => <b ( c d )>
	use v6;

	multi sub grep ($cond, @array, :@between where { .elems == 2 }) {
	my $level = 0;
	gather for @array {
	$level-- if $level && $_ ~~ @between[1];
	take $_ if $level && $_ ~~ $cond;
	$level++ if $_ ~~ @between[0];
	}
	}

	grep *, <a ( b ( c d ) ) e>, :between<( )>; # => <b ( c d )>