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

use utf8;

use lib '../../lib';
use Mail::Message::Field::Full;
use Mail::Message;

my $to = 'Fanny Work <dima@mailbox.ru>';
my $to_address = Mail::Message::Field::Address->parse($to);
print $to_address->string, "\n";

$to = 'Веселая Работка <dima@mailbox.ru>';
$to_address = Mail::Message::Field::Address->parse($to);
print $to_address->string, "\n";
