I work with one4k4... we came up with this:

#!/usr/bin/perl

use Number::Format;

sub foo {
        my $d = new Number::Format (-thousands_sep => ',', -decimal_po
+int => '.', -decimal_fill => 2);

        sprintf(<<EOH
        <tr>
        <td>%s</td>
        <td>%s</td>
        </tr>
EOH
        ,$d->format_number(3)
        ,$d->format_number(4));
}

print foo();
[download]

Is peachy...