use Encode qw( _utf8_off );

sub internal {
   _utf8_off( my $s = shift );
   return $s;
}

my $s = "\x{1234}\x{5678}";   # string with utf8 flag on

print unpack("H*", internal($s)), "\n";