1
Abra un documento de texto en blanco en cualquier editor de texto
2
Tipo de la línea
# /usr /bin /perl . ! - w
para iniciar la secuencia de comandos Perl
3
Tipo de la línea
my @ values = qw ( Abby Joseph James Joshua Alicia Astor ) .
para crear una matriz de valores
4
escriba la línea
mis @ subA = grep ( /^ a /, @ valores ) ; .
< p > para buscar todos los nombres que comienzan con la letra "A" .
5
escriba la línea
mis @ SubB = grep ( /^ J /, @ valores ) .
para buscar todos los nombres que comienzan con la letra " J "
6
Tipo de la línea
print " @ subA \\ n " ;
para imprimir " Abby Alicia Astor " a la pantalla
7
Tipo de la línea
print " @ SubB \\ n"; .
< p > imprimir " Joseph James Joshua " en la pantalla.
8
Guarde y cierre el archivo.