DB<120> @a = map { /(\w*a\w*)/;$1||() } `ls`
 => (
  "babel",
  "emacs1000",
  "lanx",
  "lanx",
  "seahorse",
  "man",
  "Tracker",
  "virtual",
)

  DB<121> @a = map { /(\w*a\w*)/ } `ls`
 => (
  "babel",
  "emacs1000",
  "lanx",
  "lanx",
  "seahorse",
  "man",
  "Tracker",
  "virtual",
)