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