Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use 5.010;
- use utf8;
- use Encode;
- my $name = 'Ricardo Julián Besteiro Signes';
- seek DATA, 0, 0; print while <DATA>;
- say Encode::encode('MIME-Q', $name);
- say Encode::encode('MIME-B', $name);
- say Encode::encode('MIME-Header', $name);
- __DATA__
- =?UTF-8?Q?Ricardo=20Juli=C3=A1n=20Beste?==?UTF-8?Q?iro=20Signes?=
- =?UTF-8?B?UmljYXJkbyBKdWxpw6FuIEJlc3RlaXJvIFNpZ25lcw==?=
- =?UTF-8?B?UmljYXJkbyBKdWxpw6FuIEJlc3RlaXJvIFNpZ25lcw==?=
Add Comment
Please, Sign In to add comment