push (@list, "$1\n") and $count++
  if /\b([\w]+@[\w]+\.[\w]{3})\b/g;