No entiendo porqué tanta complicación. Si me permites la intromisión, un alfabeto {a,b} (siendo {a,b} un conjunto de 2 elementos) debería reconocer como válidas:

• aa
• ab
• bb
• abababb
• bbabbb

Y cualquier palabra que se componga de SOLO 'a' y 'b'. Si deseas que la cadena vacía sea inválida, entonces tu expresión es tan simple como "/^[a|b]+$/", es decir: Los elementos a y b son los únicos válidos de principio a fin, y al menos debe existir un elemento válido.
Si deseas considerar espacios es otra cosa, pero para ver SOLO palabras compuestas por las letras "a" y "b" sería:

#!/usr/bin/env perl
 
use strict;
 
die "sin parametros\n" unless (@ARGV);
 
print "el lenguaje se compone de 'a' y 'b'\n";
 
for (@ARGV) {
    if (/^[a|b]+$/) {
        print "'$_' pretenece al lenguaje\n";
    }
    else {
        print "'$_' NO pretenece al lenguaje\n";
    }
}
 
exit (0);
 

Llamalo con las palabras que desees como parámetros, agrega la cadena vacía, usa un arreglo tuyo en lugar de ARGV, como sea.

Saludos

Por cierto, me permito hacer otra aclaración que nadie hizo. El operador (función) m (match) de Perl, es TOTALMENTE INNECESARIO en las expresiones que pegaron antes.

Usaría el operador de matching si fuera a delimitar la expresión de otra forma, por ejemplo:

m#^[a|b]+$#
m:^[a|b]+$:
m%^[a|b]+$%

En caso de usar slashes ( / ), el operador m no es necesario, porque está implícito. Es lo mismo ponerlo que no hacerlo.

~ Yoya ~: Tu expresión tampoco matchea lo que dices que matchearía, o lo que debería. La expresión m/^[a-z\ñ]+$/i lo que hace es devolver verdadero (1) si la cadena está conformada con caracteres de la 'a' a la 'z' incluyendo la 'ñ', tanto mayúsculas como minúsculas.

La otra expresión:

if ($nombre =~ m/[^ab]/ | $nombre =~ m/^$/)

lo que hace es verificar que la cadena EMPIECE por 'a' o 'b', pero dará como válido cosas como 'astilla' o 'barco'.

Saludos

Cierto, lo confundí con /^[ab]/, lo extraño es que hice una prueba rápida para ver si me equivocaba, y:


Parece como si hubiera puesto /^[^ab]$/... debe ser porque estoy en cygwin. Cuando llegue a mi casa verifico si en Linux tengo el mismo problema.

PD: La fuente por excelencia para hablar de expresiónes de Perl es el perlretut, la documentación oficial de perldoc. La referencia a esto sería esta

Saludos

Sería algo así:

#!/usr/bin/perl
use 5.010;
use utf8;
use strict;
 
print "Ingrese nombre de usuario: ";
my $nombre = <>;
chomp $nombre ;
 
if ($nombre =~ /^[ab]+$/i) {
    say 'Sí pertenece';
}
else {
    say 'No pertenece';
}