Help for this page
print "$1\n" if /^(\w+[\w,]+\w+)$/ && !/,,/;
print "$1\n" if /^(\w+[\w,]+\w+)$/ && !/,{2,}/;