RosettaCodeData/Task/Get-system-command-output/Perl/get-system-command-output-1.pl

my @directories = grep { chomp; -d } `ls`;
for (@directories) {
chomp;
...; # Operate on directories
}