for (glob "*.txt") {
      my $lsoutput = qx(ls -l $_);
      if ($lsoutput =~ /$ENV{USER}/) {
          print "File matches current username.\n";
      }
  }