use Win32::API;

my $DataToEncode = "Test1 Test2 Test3";

my $return_sring = undef;

use Win32::API;
  $function = Win32::API->new(
      'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P']
  );

   my $string =  $function->Call('FontEncode');