#!/usr/bin/perl -w

# Ejercicio 11. Expresiones regulares

# Variables legales en PERL

print "Por favor, introduzca una palabra: \n";

$palabra = <STDIN>;

chomp $palabra;

while ($palabra ne 'basta') {

if ($palabra =~ m/^\$[a-zA-Z][0-9a-zA-Z_]*$/) {

print "He encontrado una variable legal de perl: $palabra \n";

}

else {

print "La cadena introducida no es un nombre de variable en PERL\n";

}

print "Por favor, introduzca una palabra: \n";

$palabra = <STDIN>;

chomp $palabra;

}

exit;