print "Ingrese su secuencia:";

while (my $cadena = ) { chomp($cadena);

print " La cadena es $cadena\n"; # Condicion de termino del programa #------Inicio Sentencias------------

@cadena1=split(//,$cadena);$largo=length($cadena1);

for($i=0; $i