Perl - Expresion Regular

Buenas Tardes, estoy tratando de hacer una expresión regular para validar un campo alfanumérico, es decir, sólo puede aceptar letras mayúsculas y minúsculas además de números y los caracteres especiales áéíóíÁÉÍÓÚüüñÑ y el guión bajo (_). Además no puede tener una longitud máxima de 25 caracteres

Alguien tiene una idea de como hacerlo???... soy completamente novato en este tema. De antemano muchas gracias por la ayuda

Aquí hay un problema... los caracteres acentuados.

En principio, deberás incluir el pragma 'use locale;' al principio del programa para que las operaciones de cadenas de caracteres tengan en cuenta a esos caracteres.

La expresión regular sería: /w{1,25}/

La cosa se puede complicar con la codificación de los caracteres .