Então faça desta maneira:<br><br><div><div><span class="e" id="q_10bb410f454a65d8_3">&lt;code&gt;</span><br><span class="e" id="q_10bb410f454a65d8_3">use strict;</span><br><span class="e" id="q_10bb410f454a65d8_3">use
 warnings;</span><br><span class="e" id="q_10bb410f454a65d8_3"></span><br><span class="e" id="q_10bb410f454a65d8_3">my $basedir = &quot;/var/www&quot;;</span><br><span class="e" id="q_10bb410f454a65d8_3"></span><br><span class="e" id="q_10bb410f454a65d8_3">
opendir my $dir, $basedir or die &quot;Problemas ao abrir diretório: $!&quot;;</span><br><span class="e" id="q_10bb410f454a65d8_3">while (defined(my $file = readdir($dir))) { <br>&nbsp;&nbsp;&nbsp; next unless $file =~ m/^filesys/;<br></span>
<span class="e" id="q_10bb410f454a65d8_3">&nbsp;&nbsp;&nbsp; print &quot;Arquivo: $file\n&quot;;</span><br><span class="e" id="q_10bb410f454a65d8_3">}</span><br><span class="e" id="q_10bb410f454a65d8_3">&lt;/code&gt;</span><br><span class="e" id="q_10bb410f454a65d8_3">
</span></div></div><br>Outra opção que você tem é o File::Find, que é padrão nas distribuições Perl. Ficaria mais ou menos assim:<br><br>&lt;code&gt;<br>use strict;<br>use warnings;<br>use File::Find;<br><br>my $basedir = &quot;/path/to/files&quot;;
<br><br>sub wanted {<br>&nbsp;&nbsp;&nbsp; next unless m/^filesys/;<br>&nbsp;&nbsp;&nbsp; print &quot;$_\n&quot;;<br>}<br><br>find(\&amp;wanted, $basedir);<br>&lt;/code&gt;<br><br>Esta é a maneira que eu julgo mais portável e menos repetitiva.<br>-- <br>
Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/</a>