#!/usr/bin/perl -w
###########################################
# peek
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use utf8;
use Data::Hexdumper;
use Encode qw(_utf8_off is_utf8);

my $s = "ü";

if( is_utf8($s) ) {
    print "UTF-8 flag is 'on'.\n";
}

print "Len: ", length($s), "\n";
_utf8_off($s);
print "Len: ", length($s), "\n";

print hexdump(data => $s), "\n";