#!/usr/bin/perl
while (<STDIN>) {
    while (/([\w\-][\w\-\.]+@[\w\-][\w\-\.]+[a-zA-Z]{1,4})/gc) {
	print "$1\n";
    }
}