say for grep { /DBIC/ .. /Dancer/ and !/DBIC/ and !/Dancer/ } qw<MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>;