use strict;
use warnings;
use Encode;
my $internal_string_2 = 'aÜaerzz';
my $octets = decode ("utf8", $internal_string_2);
for (split //, $octets) {
if($_ =~ m/[a_zA_Z0_9]/)
{
	print "$_\n\n";
}
else
{
	    printf ("\u%X ", ord($_));
	    print "\n\n";
	
}
}