Voici un petit texte qu'on pourra améliorer à son gout:

                        
#!/usr/bin/perl -w
$texte="Il y a 2 mois, ce n'est pas toi qui a découvert cette vieille armoire, cachée sous la toiture\n.
Moi, je te dis que c'est bien moi, il y a 2 ou 3 mois ";
$motif=<>;
chomp($motif);
print "Recherche de $motif\n";
                        

On demande d'écrire les motifs, puis 
de tester, pour chercher :
                        

1. l'un des mots "moi", "toi", partout dans le texte
2. les sous-chaines "moi" ou "toi".
3. le mot "moi" seulement en début de phrase