$ perl -le"print for glob shift" C:\perl\[5]*\bin

$ perl -le"print for glob shift" C:\perl\\[5]*\bin
C:\perl\5.10.1\bin
C:\perl\5.11.1\bin
C:\perl\5.12.2\bin

$ perl -le"print for glob shift" C:\perl/[5]*\bin
C:\perl/5.10.1\bin
C:\perl/5.11.1\bin
C:\perl/5.12.2\bin


##</code><code>##

chdir $path_to_dir ;
glob '*.type';

##</code><code>##

$ findrule C:\perl -directory -name ( bin )
C:\perl/5.10.1/bin
C:\perl/5.10.1/html/bin
C:\perl/5.11.1/bin
C:\perl/5.12.2/bin
C:\perl/site/5.12.2/bin

##</code><code>##

$ findrule C:\perl -directory -name ( bin ) -maxdepth 1

$ findrule C:\perl -directory -name ( bin ) -maxdepth 2
C:\perl/5.10.1/bin
C:\perl/5.11.1/bin
C:\perl/5.12.2/bin

$ perl -MFile::Find::Rule -le"print for File::Find::Rule->new ->directory ->name('bin') ->maxdepth(2) ->in('C:\perl') "
C:\perl/5.10.1/bin
C:\perl/5.11.1/bin
C:\perl/5.12.2/bin


##</code><code>##

$ perl -le"print for glob shift " C:/perl/*/*/*/perl5*exe
C:/perl/5.10.1/bin/MSWin32-x86-multi-thread/perl5.10.1.exe
C:/perl/5.11.1/bin/MSWin32-x86-multi-thread/perl5.11.1.exe
C:/perl/5.12.2/bin/MSWin32-x86-multi-thread/perl5.12.2.exe