If you want *really* short use a glob:

$path = 'c:/';

@sheets = <$path*xls>;
[download]

This lets you skip the opendir, readdir, closedir and grep steps.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print