my @words = split /,/, $string;