Select Code to Download

use  DBI;
use DBD::ODBC; 
...
@nums = map ord, split //, $str;
print "$str\n";
print join ' ', @nums,"\n";

INITIAL VALUE IS 0.0?
73 78 73 84 73 65 76 32 86 65 76 85 69 32 73 83 32 48 46 48 63 
30 degrees = 30º
51 48 32 100 101 103 114 101 101 115 32 61 32 51 48 186

INITIAL VALUE IS 0.0º;
73 78 73 84 73 65 76 32 86 65 76 85 69 32 73 83 32 48 46 48 186
30 degrees = 30º;
51 48 32 100 101 103 114 101 101 115 32 61 32 51 48 186