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");