#!/usr/bin/perl -w

use strict;
use Email::Find qw(find_emails);

use vars qw(@MATCHES);

my $text = 'user@somewhere.com not an email address me@home.com';

find_emails($text, \&callback);

print join "\n", @MATCHES;

sub callback {
  my $email    = shift;
  my $original = shift;

  push @MATCHES, $email->format;
  return $original;
}