while ($file = <$dir\\*.txt>) {
  #do your stuff
}