my @nod;
eval {
    sub foo {die if (/^p/i); push @nod, $_}
    find (\&foo, "./");
};
print "$_\n" for @nod;

##</code><code>##

try.pl
try3.pl
try0.pl
try4.pl
try0.txt
try9.pl
try6.pl
try7.pl
try8.pl
try10.pl
try11.pl
text.txt
try12.pl
try13.pl
try14.pl
try15.pl
p01.pl
p02.pl
p03.pl
p04.pl
p05.pl
p09.pl
p10.pl
p11.pl
p12.pl
try2.pl
try1.pl
webrobot.pl
links.txt
algorithm.pl
mainfile.txt

##</code><code>##

try.pl
try3.pl
try0.pl
try4.pl
try0.txt
try9.pl
try6.pl
try7.pl
try8.pl
try10.pl
try11.pl
text.txt
try12.pl
try13.pl
try14.pl
try15.pl