#!/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/ / /g; 
}