while($data=~/([\w.-]+\@(?:[\w.-]\.)+\w+)/gcs){
  #e-mail address in $1
}