Select Code to Download

use Data::Dumper qw/Dumper/;
...

@newlist = flat { m/DBIC$;(.*)$;DANCER/; $_=$1 } @list;
print Dumper \@newlist;

$VAR1 = [
          'A',
...
          'B',
          'C'
        ];