print m{ /(\w+) /foo\z }x, "\n"
  for @FILES;