Select Code to Download

my $num = 244.83;
print "'" . str($num, 8, 3) . "'\n";
...
   $sentnum =~ tr/./,/;
   return $sentnum;
}