my $scalar = '1,2,3,4,5,6,7,8';
print "$scalar\n";
my @evens;
while ( $scalar =~ s/^([^,]),[^,](,|$)// ) {
        push @evens, $1;
}
print "@evens\n";