[PERL] Redirezionamento output e funzioni "awk > e grep"

[menphisx]

@myDir = <*>;
foreach $myDir (@myDir) {
   
   next if $myDir =~ /^\.\.?$/;
   
   $output = `ls -l $myDir | awk '{print \$9}'`;
   
   $output =~ /^ *$/;
   print $1;
   
}