Or more simply, without going for exact perl. You could use:

perl -e 'print `cat file|cut -d "," -f1|cut -d ":" -f5|cut -d " " -f1`
+;'
[download]

(Replace file with exact name of your file and/or absolute path). Output: barry sally sparky sammy sally bill bart bill bart cal tom sally phuong cindy olivo bart celia cindy bart