my @arr = split /,\s*(?:and\s*)?/, $str;