#!/bin/perl
use strict;
use warnings;
use 5.010;

use Email::Valid;
use Data::Dumper;
use Encode qw(encode decode);

my $utf8_from = decode('UTF-8', 'José <J.name@web.de>');
my $from = encode('MIME-Header', $utf8_from);
say "Mail: $from";
my $validator = Email::Valid->new();
if(my $addr = $validator->address( $from )) {
    say "OK: ", Dumper($addr);
}
else {
    say "Not valid";
}