#!/usr/bin/perl -n
use strict; use warnings;
/([a-z0-9._-]+@[a-z0-9._-]+)/ && print "$1\n";