my $salud = 'Hi there!';
# Match using 'm//'      
if ($salud =~ m/Hi/) {
    print "Found 'Hi' in '$salud'\n";
}
# Substitute using 's///'            
$salud =~ s/Hi/Hello/;
if ($salud =~ m/Hello/) {
    print "Found 'Hello' in '$salud'\n";
}
if ($salud !~ m/Hi/) {
    print "Did not find 'Hi' any longer in '$salud'\n";
}

1. Definir una expresion que hace Match a 2 Newline:s <NL>:s consecutivos.
2. Definir una expresion que hace Match a 'Juan' o a 'Pedro'.
3. Definir una expresion que hace Match a 'Juan Lopez' o a 'Juan Perez'.
4. Definir una expresion que hace Match a cualquier letra D,E,F,G,H,I,J,K,L.
5. Definir una expresion que hace Match a 'abc' pero no a '123abc'.
6. Definir una expresion que hace Match a 'abc' pero no a 'abc123'.
7. Definir una expresion que hace Match a 'z' y a 'zzz', pero no a 'zz'.

1. Definir una expresion que sustituye <CR><LF> por <LF>.
2. Definir una expresion que hace Match a 8, 234, 7891 y 55, pero no a 'e33'.
3. Definir una expresion que hace Match a cualquier cadena que no contenga números.
4. Definir una expresion que sustituye dos o más espacios por uno.

1. Muchas veces uno quiere la cadena original, y una copia donde se aplican los cambios de una expresión:
   En vez de:

   $copia = $original;
   $copia =~ s/Algo/Otro/;
   	    

   se puede hacerlo en una sola linea:

   ($copia = $original) =~ s/Algo/Otro/; 
   	    

2. Hay que tener cuidado donde se aplican los parentesis: se puede hacerlo en una sola linea. Los cambios van en $c:

   ($c = $o) =~ s/Algo/Otro/g; 
   	    

   pero abajo, $c devuelve el número de cambios:

   $c = ($o =~ s/Algo/Otro/g); 
   	    

3. La primera agrupación de una expresión se guarda en el variable $1, la segunda en $2, etc.
   Esto es útil en sustituciones:

   my $a = '123 abc';
   # La primera agrupacion (\d+) - uno o mas digitos - va en $1
   # La segunda agrupacion (\s+) - uno o mas espacios - va en $2
   # La tercera agrupacion (\S+) - uno o mas 'no espacios' - va en $3
   # $3$2$1 quiere decir que las tres agrupaciones van al reves
   (my $b = $a) =~ s/(\d+)(\s+)(\S+)/$3$2$1/;
   print "$a\n";
   print "$b\n";
   	    

   Imprime:

   123 abc
   abc 123
   	    

4. Ejemplo de usar la primera agrupación $1 en una función:

   # El sub devuelve el numero en letras
   sub my_reg_exp {
     my $d = shift;
     my @letras = ('cero','uno','dos','tres');
     return $letras[$d];
   }	    
   my $a = '0123 3210 111';
   # La primera agrupacion $1 hace match a un digito.
   # Se reemplaza la agrupación por lo que devuelve la función.
   # Nota que se necesita el Modifier 'e' para evaluar la función
   # Nota que se necesita el Modifier 'g' para reemplazar todos los digitos.
   # Sin 'g' solo reemplaza el primer digito.	    
   (my $b = $a) =~ s/(\d)/&my_reg_exp($1)/ge;
   print "$a\n";
   print "$b\n";
   

   Imprime:

   0123 3210 111
   cerounodostres tresdosunocero unounouno