Perl - Expresion Regular para Identificador

Buenos Días:

Soy completamente novato en esto de las expresiones regulares, y se que PERL es un lenguaje excelente para este caso. Estoy tratando de codificar una expresion regular para validar que un campo que cumpla las siguientes especificaciones.

->Comenzar con cualquier letra (A-Z a-z), número(0-9), vocales acentuadas (áéíúóÁÉÍÓÚüÜ), o con ñ o Ñ.

-> una ves que se ha capturado el primer caracter válido, se pueden continuar capturando caracteres, hasta un máximo de 29 (para completar una longitud máxima de 30 caracteres), donde además de los caracteres anteriores se pueden capturar espacios en blanco y guion bajo (_)

Ejemplo
1 -> Correcto
Úasdd 123_123 -> correcto
ÑúáÜ123452 -> correcto
_1234 -> incorrecto (no puede comenzar con _)
1234567890123456789012345678901 -> incorrecto (longitud mayor a 30 caracteres)
1"sdfdss -> incorrecto (no puede capturar caracteres especiales "#$%& etc.)

Espero que alguien me pueda dar una idea de cómo puedo hacer esto. Saludos.

Leo

#!/usr/bin/perl -l

use locale;
@in = (
'1',
'Úasdd 123_123',
'ÑúáÜ123452',
'_1234',
'123456789012345678901234567890',
'1"sdfdss',
);
foreach (@in) {
print ;
print "correcto" if /^(?!_)[\w _]{1,30}$/;
}

Hay que activar el 'use locale' para que \w incluya los caracteres acentuados.

La expresión regular quiere decir: busca aquello que comienza (^) por un conjunto de entre 1 y 30 caracteres alfanuméricos, espacios o '_' pero que vengan precedidos por un '_' y nada más ($).

#!/usr/bin/perl -l

use locale;
@in = (
'1',
'Úasdd 123_123',
'ÑúáÜ123452',
'_1234',
'123456789012345678901234567890',
'1"sdfdss',
);
foreach (@in) {
print ;
print "correcto" if /^(?!_)[\w _]{1,30}$/;
}

Hay que activar el 'use locale' para que \w incluya los caracteres acentuados.

La expresión regular quiere decir: busca aquello que comienza (^) por un conjunto de entre 1 y 30 caracteres alfanuméricos, espacios o '_' pero que no vengan precedidos por un '_' y nada más ($).

He añadido el caso de que el texto capturado no puede empezar tampoco por un espacio en blanco:

print "correcto" if /^(?!_| )[\w _]{1,30}$/;