in reply to Re: Substr cannot extract last special character
in thread Substr cannot extract last special character

Sorry juo, I misunderstood the question, here is my suggestion:

my $ohm = '24Ù 34Ã 234Æ 32Ï 23Ð 1½ 23§'; print "Before substract : $ohm\n"; while ($ohm =~ /[^!-~\s]/g)#This helps to find the non ascii character { $unit=$&; $ohm=~s/$unit//e; $foo ='&#x'.sprintf("%04X",ord($unit)).";"; print "Unit : $unit\tHex : $foo\n"; }

In CMD, display the following hexadecimal values:

Hex : Ù Hex : Ã Hex : Æ Hex : Ï Hex : Ð Hex : ½ Hex : §

These hexadecimal values are viewed in IE as HTML and XML file, I am getting exact symbol which are present in the code.

Please, try this.

Regards,
Velusamy R.