my $field = qr([a-zA-Z]+);
 if (($key =~ /^$field(?:,$field)*$))