Select Code to Download

Before the s///:

...
length = 11
31 32 33 34 35 36 37 08 2c 38 39
 1  2  3  4  5  6  7 ^H  ,  8  9

my $num_in = 1234567.89;
my ($i, $d) = split /\./, $num_in;
...
$i = reverse($i);
my $num_out = "$i,$d";
print($num_out, "\n");