#!/usr/bin/perl -w

use strict; # every job should

my $number = 222.42;

printf("A: \$%10.2f\n",$number);
printf("B: \$%-10.2f\n",$number);

##</code><code>##

%shell > perl test.pl
A: $    222.42
B: $222.42

##</code><code>##

sub html_space {
    my $Rstring = shift;
    $$Rstring =~ s/ /&nbsp;/g; 
}

##</code><code>##

#!/usr/bin/perl -w

use strict; # every job should

my $number = 222.42;

$number = sprintf("\$%10.2f\n",$number);
&html_space(\$number);
print "A: $number\n";

sub html_space {
    my $Rstring = shift;
    $$Rstring =~ s/ /&nbsp;/g; 
}