thanks a ton! that did it

package Email;
use overload '""'=> \&ADDRESS , fallback=> 1;

my     $RE_EMAIL= qr/^[\w\-\+\._]+\@[a-zA-Z0-9][-a-zA-Z0-9\.]*\.[a-zA-
+Z]+$/ ;

sub new {
    my  $proto= $_[0];
    my  $class= ref($proto) || $proto;
    my  $self= bless( {} ,  $class );
    $self->{ADDRESS}= undef;
    $self->ADDRESS( $_[1] );
    return $self;
}

sub ADDRESS {
    my $self= shift;
    if ( @_ ) { 
        my     $email= shift;
        $email=~ $RE_EMAIL or die "Not a valid email address";
        $self->{ADDRESS}= $email;
    }
    return $self->{ADDRESS};
}

sub _as_str {
    my  ( $self )= @_;
    return $self->ADDRESS;
    
}
[download]