print "yes" if not tr/a-zA-Z,//c and not ( str( $_, ',', 0) or str $_, ',' ,-1);