reg.exp i perl

Hi,

jeg har en string, som indeholder data. f.eks. navne. Disse navn bliver seperated med et komma (,). Et script skal nu læse disse navn og gemme dem i et array. Scriptet ved ikke i forvejen, hvormange navn det er, som står i denne string.

eksempel på strings:
my $string = ",hans"; # eller
my $string = ",hans,peter,lisa"; # eller
my $string = ",hans .......... ,susanne,peter,testnavn"; # osv.

hvordan kan jeg bedst få disse navn gemt i arraz'et @array?
-----------
sub gemNavne
{
    my $string = $_[0];
    my @array;

    @array =~ s/(\,([^\,]))/$1/g; # <-- det virker ikke
                                  # er der en som har en løsning?
                                  # hvis det ikke er muligt at lave det
                                  # på denne måde - hvad er så den bedste
                                  # løsning?
    foreach (@array)
    {
        print $_."\n";
    }
}

hvordan kan jeg bedst få navnene ind i array'et?


med venlig hilsen
KernelX