BEGIN {
    my $lib_to_use;
    foreach my $dir (@INC) {
        $lib_to_use = $dir, last
            if $dir =~ m!dirAAA/?$!;
    };
    $lib_to_use =~ s!dirAAA!dirBBB!;

    use lib $lib_to_use;
}

use ModuleB;