#!/usr/bin/local/perl
use strict;
use Data::Dump 'pp';

my @project_name = ();
while (my $line = <DATA>){
  if ( $line =~ m!\[(.*):/\]! ){
    push @project_name,$1;
  }
}
pp \@project_name;

__DATA__
cpfskTeam = sonkar, mobrien3, dokeeff2, pquinla, hkumar3

[cpfsk:/]
* = r
@cpfskTeam = rw
@serveradmins = rw
@svnadmin = rw