#! perl
use strict;
use warnings;
use File::Find::Rule;

for (5 .. 7)
{
    my $ant_home = get_ant_home('weblogic_' . $_) // 'not found';
    print "In weblogic_$_, ant home is: $ant_home\n";
}

sub get_ant_home
{
    my $test_dir   = shift;
    my $module_dir = $test_dir . '/A';
    my @subdirs    = File::Find::Rule->directory->in($module_dir);

    for (@subdirs)
    {
        return $_ if /org\.apache\.ant\.\d+\.\d+$/;
    }
}