note
jeffa
<p>
How about not reinventing a perfectly round wheel and adding [cpan://File::Basename]
to your problem? Or even better --- have you seen [cpan://File::Find::Rule] yet?
<code>
my @files = File::Find::Rule
->file()
->name( '*.doc', '*.xls', '*.ppt' )
->in( @DIRS )
;
</code>
</p>
<p>
UPDATE:<br/>
[crabbdean] just pointed out [id://324335] to me.
</p>
<div class="pmsig"><div class="pmsig-18800">
<p>jeffa</p>
<font size=1>
<pre>
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(<a href="http://jeffa.perlmonk.org/tripdid.mp3">the triplet paradiddle with high-hat</a>)
</pre></font>
</div></div>
348807
348807