my @found = grep { -f && /\.pl/ } @array;

##</code><code>##

my @files = 
    grep { -f && /^parsed.*\.txt$/ }
    map  { "$dir/$_" } 
    readdir($dh);