my @dirs = `ls /var/log/HOSTS/*/*/$year/$month/$day/*`

I'm not sure where you want to go with this, but I assume you want to do something in each directory that exists for the day/month/year for each logged host.

The canonical Perl way of doing this (without relying on an external program) is to use the venerable File::Find module.

use File::Find;

find(
  sub {
    return unless
      $File::Find::name =~ m{^/var/log/HOSTS/([^/]+)/([^/]+)/(\d+)/(\d
++)/(\d+)/(.*)$};

    my( $dir1, $dir2, $year, $month, $day, $file ) =
      ( $1,    $2,    $3,    $4,     $5,   $6    );

    # do stuff with $file
  },
  '/var/log/HOSTS'
);
[download]

  $File::Find::name
    =~ m{^/var/log/HOSTS/([^/]+)/([^/]+)/(\d+)/(\d+)/(\d+)$}
      and push, @dirs, $File::Find::name;
[download]

Maybe you want something like this:

Anyway, it's not that "clean", so consider glob or File::Glob. Just do a perldoc -f glob to get some details.

Ciao!
--bronto

If you check the man page for glob you get:

Beginning with v5.6.0, this operator is implemented using the standard File::Glob extension

gav^