Perl: abreviação rápida para ler a lista de diretórios

Perl possui vários atalhos para realizar tarefas rotineiras. Uma das minhas favoritas é a sintaxe abreviada para abrir um diretório e ler seu conteúdo.

Observação: aplica-se apenas ao diretório de trabalho atual.

O código:

@files = <*>;

foreach $file (@files) {

    //do whatever

}