#!/usr/bin/perl -w

# Ejercicio 9. Expresiones regulares

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

$palabra = <STDIN>;

chomp $palabra;

#La cadena buscada tiene que tener solo 3 caracteres: vocal, numero y letra.

#Por eso ponemos los simbolos ^ y $ para indicar que deben coincidir con el principio

#y el fin de la cadena.

if ($palabra =~ m/^(a|e|i|o|u)[0-9]([a-zA-Z])$/) {

print "He encontrado la cadena $& que cumple lo buscado \n";

}

else {

print "No he encontrado la cadena buscada\n";

}

exit;