List::MoreUtils::after_incl {
    $_ !~ /DBIC/
} List::MoreUtils::after_incl {
    /DBIC/    
} List::MoreUtils::before { 
    /Dancer/
} @YourList

##</code><code>##

my $partition=0;
my @parts =
List::MoreUtils::part {
    if($pivots[0]) {
        if($partition % 2 == 0) {
            if($_ =~ $pivots[0]) {
                ++$partition;
            } 
        } else { 
            if($_ !~ $pivots[0]) {
                ++$partition;
                shift @pivots;
            }
        }
    }
    $partition
} qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>;
print join(',',@{ $parts[2] }),"\n";

##</code><code>##

my @input=qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>;
my @firsts=@input[0..@input-2];
my @seconds=@input[1..@input-1];
my $inside=0;
my @result;
List::MoreUtils::pairwise { 
    if($inside == 1) {
        my $pat=qr(Dancer);
        push @result,$a;
        if($a !~ $pat && $b =~ $pat) {
            $inside=-1;
        }
    } elsif($inside == 0) {
        my $pat=qr(DBIC);
        if($a =~ $pat && $b !~ $pat) {
            $inside=1;
        }
    }
} @firsts, @seconds;
print("@result\n");

##</code><code>##