#!/usr/local/bin/perl

$integer="­ó";
print ("The integer is $integer\n");

$sub2=substr($integer,1,1);

$char1=ord($integer);
$char2=ord($sub2);

print ("The AscII decimal is $char1\n");
print ("The AscII decimal is $char2\n");       

$hexa1=sprintf("%x", $char1);
$hexa2=sprintf("%x", $char2);
print ("$hexa1\n");  
print ("$hexa2\n");