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