Check for existance of directory in Perl with wildcard
===

I need to check whether any of a set of directories exist in a Perl script. The directories are named in the format XXXX*YYY - I need to check for each XXXX and enter an if statement if true. 

In my script I have two variables $monitor_location (contains the path to the root directory being scanned) and $clientid (contains the XXXX).

I have the following code so far (doesn't work):

    if (-d "$monitor_location/$clientid\*") {
      # there are some call recordings for this client
      $str = `du -c $monitor_location/$clientid* | tail -n 1 2>/dev/null`;
      $str =~ /^(\d+)/;
      $client_recspace = $1;
      print "Client $clientid has used $client_recspace of $max_record\n";
    }

To be clear, I want to enter the if statement if there are any folders that start with XXXX.

Hope this makes sense! Thanks