$cible = "M";
open(FICHIER, "<test.txt");
while(<FICHIER>){
if ( /$cible/i){
print "$cible trouvé à la ligne $.";
}
}
Notons ici l'utilisation de la variable spéciale $. qui indique le numéro de la ligne. L'option i indique que l'appariement se fait quelque soit la présence de majuscules ou de minuscules.
$_="12234554689102222230";
s/0/zero/g;
print "$_\n";
Avec l'option g, chaque occurrence du premier argument apparié est substitué. Sans option, seule la première occurence est substituée.
$_="12234554689102222230";
tr/01/z/;
print "$_\n";