my $pat = qr{^([A-Za-z]|[A-Za-z],(?=[A-Za-z]))+$};