Este es un ejemplo típico de programa Perl ''moderadamente críptico'': no aparece explícitamente ninguna variable salvo por la referencia a $_ en la línea 4.
$_