perl -MO=Deparse -ne ' map { print $_ , "\n" if ( -d $_ )  ; } @ARGV  '
LINE: while (defined($_ = <ARGV>)) {
    map {print $_, "\n" if -d $_;} @ARGV;
}
-e syntax OK