0000000 50 4b 03 04 14 00 09 00 08 00 67 8d 25 46 00 00
0000010 00 00 00 00 00 00 00 00 00 00 1c 00 00 00 73 63
0000020 72 65 65 6e 73 68 6f 74 2d 31 37 32 20 32 31 20
0000030 32 34 32 20 36 34 2e 7a 69 70 32 9e 8a fc b5 15

##</code><code>##

00000000  50 4B 03 04 14 00 09 00 - 08 00 67 FFFD 25 46 00 00  PK........g.%F..
00000010  00 00 00 00 00 00 00 00 - 00 00 1C 00 00 00 73 63  ..............sc
00000020  72 65 65 6E 73 68 6F 74 - 2D 31 37 32 20 32 31 20  reenshot-172 21
00000030  32 34 32 20 36 34 2E 7A - 69 70 32 FFFD FFFD FFFD FFFD 15  242 64.zip2.....

##</code><code>##

#!/usr/bin/env perl
#
# wctest.pl - A test to see where the wide characters come from.

use strict;
use warnings;
use RT::Client::REST;
use RT::Client::REST::Ticket;
use Data::HexDump;

my $user='user';
my $pass='pass';

my $rt = RT::Client::REST->new(
    server  => ('https://rt.local'),
	basic_auth_cb => ( sub { return ($user, $pass); } )

);

$rt->login( username=> $user, password=> $pass,);
my $ticket_ptr = RT::Client::REST::Ticket->new(rt => $rt);

my $results = $ticket_ptr->search( limits => [ { attribute => 'id', operator => '=', value => '51447' }, ],);

my $iterator = $results->get_iterator;
my ($ticket, $attachments);
while ($ticket = &$iterator) {
	$attachments = $ticket->attachments;

	# Store attachments
	my $atch_ater = $attachments->get_iterator;
	while (my $att = &$atch_ater) {
		next if ($att->file_name eq '');
		print HexDump substr($att->content, 0, 64);
	}
}

##</code><code>##

use Encode;

##</code><code>##

use utf8;