use utf8;
use Encode;
use Encode::Byte;
binmode(STDOUT, ":utf8");

sub do_it {
        my $from = $_[0];
        my $name = undef();
        
        if ($from =~ m/^(.*?) </) {
                print unpack('U0H*', $1) . "\n\n";
                $name = substr($1, 0, 128);
                print unpack('U0H*', $name) . "\n\n";
        }       
        
        return;
}       


my $from = 'AAçAA AñAA <a@b>';
$from = decode_utf8($from);
do_it($from);

print "--------------------------------------\n";

$from = 'AüAAA AA <a@b>';
$from = decode_utf8($from);
do_it($from);