Используя Lookaheads, вы можете сделать следующее:
^(?=[A-Za-z](?:\w*(?:\.\w*)?$))(\S{4,32})$
Поскольку вы не указали, какой тип регулярного выражения вам нужен, я добавил много Perl 5-совместимых вещей. Как (?: ... )
для непаренных паренов.
Примечание: Я добавил отсутствующий закрывающий член обратно.