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__