Email matching in perl

#!usr/bin/perl -w
use strict;

foreach my $line (<DATA>) {
    print "$1\@$2\n" if $line =~
        m/([\w\._0-9]+)\@([\w0-9]+(\.[\w0-9]+)+)\.?/g;
# after matching, $1 holds the email
# and $2 holds the domain
}

__DATA__
Lorem ipsum dolor sit amet.
This line does not contain an email.
This line has an email: [email protected].
Only "[email protected]" is matched, even
though there's a dot at the end.
[email protected]
not_a_valid@email
emails are [email protected] middle
[email protected]
[email protected]
but only one dot can be [email protected].