#!/usr/bin/perl -w

# Ejercicio 10: Detecta palabras con pa y pi

print "Introduce una palabra \n\n";

$palabra=<STDIN>;

chomp $palabra;

if ($palabra =~ /(pa)/i) {

print "La cadena 'pa' o sus variantes ha sido encontrada en la posicion $-[1]\n\n"

}

else {

print "La cadena 'pa' o sus variantes no ha sido encontrada.\n\n"

}

if ($palabra =~ /(pi)/i) {

print "La cadena 'pi' o sus variantes ha sido encontrada en la posicion $-[1]\n\n"

}

else {

print "La cadena 'pi' o sus variantes no ha sido encontrada.\n\n"

}

exit;