#!/usr/bin/perl
 
 
@nombres = ('juan','JOse', 'Luan', '565656aaa', '%_$__', 'Raa', 'b');
 
 
 
print '----------Yoya codigo', "\n";
foreach $nombre (@nombres) {
 
#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print "$nombre -> Si pertenece\n";
}else{
print "$nombre -> No pertenece\n";
}
 
}
 
print "\n----------bdoX codigo\n";
foreach $nombre (@nombres) {
 
if ($nombre =~ m/[^ab]/ | $nombre =~ m/^$/)
{
    print "$nombre -> No pertenece al lenguaje\n";
}
else
{
    print "$nombre -> Si pertenece\n";
}
}
 

[yoya@Fedora Escritorio]$ perl a.pl
----------Yoya codigo
juan -> Si pertenece
JOse -> Si pertenece
Luan -> Si pertenece
565656aaa -> No pertenece
%_$__ -> No pertenece
Raa -> Si pertenece
b -> Si pertenece

----------bdoX codigo
juan -> No pertenece al lenguaje
JOse -> No pertenece al lenguaje
Luan -> No pertenece al lenguaje
565656aaa -> No pertenece al lenguaje
%_$__ -> No pertenece al lenguaje
Raa -> No pertenece al lenguaje
b -> Si pertenece

#!/usr/bin/perl
 
print "Ingrese nombre de usuario: ";
$nombre=<STDIN>;
chomp($nombre);
 
#analiso si la cadena no contiene a,b y analiso si la cadena es vacia
if($nombre =~ m/^[a-z\ñ]+$/i) {
print 'Si pertenece', "\n";
}else{
print 'No pertenece', "\n";
}