in reply to Re^2: `which` (for Windows) in pure perl
in thread `which` (for Windows) in pure perl

In the expression: 
grep { -f and -x }

[download]
You only need to stat the file once: 
grep { -f and -x _ }

[download]

In Section Cool Uses for Perl