use strict;
use warnings;
use PDF::API2;
use URI::Escape;
use Encode qw/ decode /;

my $percent_encoded_str = '%CF%89%20%E2%88%9E';
my $octets              = uri_unescape $percent_encoded_str;
my $proper_unicode_str  = decode 'UTF-8', $octets;

my $pdf  = PDF::API2-> new;
my $page = $pdf-> page;
my $text = $page-> text;

my $ttf_font = $pdf-> ttfont( 'DejaVuSans.ttf' );

$text-> font( $ttf_font, 20 );
$text-> translate( 50, 700 );
$text-> text( $proper_unicode_str );

$pdf-> saveas( 'test.pdf' );