Select Code to Download

my ($seen_opening, $seen_data, $seen_closing);
my @filtered =
...
        && !($seen_closing ||= /Dancer/)  # Find closing bound
      }
      @list;

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