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';
}