#!/usr/bin/perl
 
use POSIX qw(locale_h);
 
 
=pod
En este caso es mucho mejor utilizar chomp, ya que este borra el salto de linea al final del string
chop borra el ultimo caracter al final del string....
 
 
Establesco el locale para el script, para que me tome la letra ñ como parte del alfabeto....
=cut
 
 
 
setlocale(LC_ALL, 'es_DO.ISO-8859-1');
 
my $nombre = <>;
 
chomp($nombre); #Borro el salto de linea del final del string si existe
 
 
 
if($nombre =~ m/[a-z]/i) {
print "Si\n";
 
}

#!/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";
}
 

#!/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