#!/usr/bin/perl

use strict;
use warnings;

while(<>) {
  chomp;
  my @words = /([\w\-]+\.)*[\w\-]+\@([\w\-]+\.)*[\w\-]+/g or ();
  print @words;
}