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";
}