my @filtered =
   grep { (/DBIC/ .. /Dancer/) && !/DBIC/ && !/Dancer/ }
      @list;