if (-f && '$_, !~ /^\./' && ($age > $limit)) {
          ^^^^^^^^^^^^^^