in reply to split function using multiple delimiters
my @arr = split /,\s*(?:and\s*)?/, $str; [download]