C:\>perl -MFile::Glob=bsd_glob -E "say bsd_glob('C:/Program Files/Microsoft Office/*/WINWORD.exe')"
C:/Program Files/Microsoft Office/Office12/WINWORD.exe

C:\>

##</code><code>##

use English qw( -no_match_vars );
use File::Glob qw( bsd_glob );

@ARGV = map { bsd_glob($ARG) } @ARGV;