$str=~ s/[�@-�I]/($&)/g;
$str=~ tr/�@-�H�T-�\/1-91-9/;
$str=~ s/[�I�]]/10/g;