#!/usr/bin/perl
use strict;
use warnings;
binmode STDOUT,":utf8";

my $tim = "abcdef \x{ff41}\x{ff42}\x{ff43}\x{ff44}\x{ff45}\x{ff46}";
print "main::uc( $tim ) => ", uc($tim), "\n";

sub ToUpper {
    return <<END;
0061\t0063\t0041
ff41\tff43\tff21
END
}