#!/usr/bin/perl                                                                                                                                              

use strict;

use warnings;

require "Encode.pm";

require "utf8.pm";



open FILE, "test.txt" or die $!;

my @lines = <FILE>;

my $test =  $lines[0];



print "Length: " . (length $test) . "\n";

print "utf8 flag: " . utf8::is_utf8($test) . "\n";

my @unicode = (unpack('U*', $test));

print "Unicode:\n@unicode\n";

my @hex = (unpack('H*', $test));

print "Hex:\n@hex\n";



print "==============\n";



utf8::decode($test);

print "Length: " . (length $test) . "\n";

print "utf8 flag: " . utf8::is_utf8($test) . "\n";

@unicode = (unpack('U*', $test));

print "Unicode:\n@unicode\n";

@hex = (unpack('H*', $test));

print "Hex:\n@hex\n";



print "==============\n";



utf8::decode($test);

print "Length: " . (length $test) . "\n";

print "utf8 flag: " . utf8::is_utf8($test) . "\n";

@unicode = (unpack('U*', $test));

print "Unicode:\n@unicode\n";

@hex = (unpack('H*', $test));

print "Hex:\n@hex\n";