Help for this page

Select Code to Download

Select or download this

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